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When you want to talk Atari 



XL/XE HARDWARE 



INTERFACES 

ICD 

P:R Connection 59.99 

Printer Connection 39.99 

Supra 

1150 38.99 

1151 (1200 XL) 41.99 

Xefec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

COMPUTERS 




Atari 130XE *135 

Atari 

65 XE 99.99 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 
Atari 80 Column Card 74.99 

MODEMS 

Atari 

SX212 300/1200 (ST) 89.99 

835 19.99 

XMM301 42.99 

Anchor 

VM520 300/1200 ST Dir. Con ...119.00 

Avfltsx 

1200 HC 89.99 

2400 179.00 

Supra 

2400 Baud XL, XE 169.00 

2400 Baud ST 169.00 

2400 Baud (no software) 149.00 

MONITORS 

Magnavox 

CM8502 13" Comp. & cables . . .179.00 



ST HARDWARE 




$ 



789 



520 ST FM 
RGB/COLOR 

Includes: 520 ST FM with 3V2" drive 
built-in, mouse, power supply and 
1224 color monitor. 

1040 RGB/Color System 969.00 

1040 Monchrome System 789.00 

1040 Computer (no monitor) . , .649.00 
520ST FM Monochrome System 
(Includes: 520 ST, internal drive, 
modulator, mouse, Basic and 

monochrome monitor) Call 

SM124 Monochrome Monitor ..169.00 
SM1224 Color Monitor 329.00 



DRIVES 



Atari 

XF551 Drive (XL/XE) 189.00 

AA314 DS/DD Disk (ST) 209.00 

AA354 SS/DD Disk (ST) 129.00 




Atari SHD204 .^^^ 

20 Meg for ST 559 

LB. 

5V4 ST Drive 209.00 

Indus 

GTS 100 31/2" Drive (ST) 189.00 

GT Drive (XL/XE) 189.00 

Supra 

20 Meg Hard Drive (XL/XE) 649.00 

20 Meg Hard Drive (ST) 559.00 

30 Meg Hard Drive (ST) 689.00 



PRINTERS 



Atari 

1020 XL/XE Plotter 



. 35.99 




Atari XM-M801 c^.^ 

XL/XE Dot Matrix 1 89 

XM-M804 ST Dot Matrix 184.00 

XDM 121 Letter Qlty. XL/XE ...199.00 

Brother 

M-1109 100cps Dot Matrix 179.00 

M-1409 180 cps Dot Matrix 309.00 

HR-20 22 cps Daisywheel 339.00 

Citizen 

120D120cps Dot Matrix 149.00 

180D 180 cps Dot Matrix 169.00 

Premier-35 35 cps Daisywheel .479.00 
Epson 

LX-800 150cps,80col 179.00 

Hi-80 4 pen plotter 269.00 

FX-86E 240 cps, 80 col Call 

FX-286E240cps, 132col Call 

LQ-500 180 cps, 24-wire Call 

LQ-850 330 cps, 80 col Call 

EX-800 300 cps, 80 col Call 

NEC 

P2200pinwriter 24-wire 369.00 

P660pinwrJter 24-wire 459.00 

P760pinwriter132col 649.00 

Okidata 

Oklmate 20 color printer 129.00 

ML-182120cps,80column 239.00 

ML-192-f 200 cps, 80 column ..359.00 

ML-193-f 200CPS, 132col 459.00 

Panasonic 

KX-P1080i 144 cps, 80 col 189.00 

KX-P1091i 194 cps, 80 col 199.00 

Star iVIicronics 

NX-1000 140 cps, 80 column ...179.00 

NX-15120cps, 132column ....319.00 

Toshiba 

P321-SL 216 cps, 24-wire 499.00 



WE SHIP 90% 
OF ALL ORDERS 
WITHIN 24 HOURS 






SELECT FROM 
OVER 3000 
PRODUCTS 
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you want to talk to us. 



XL/XE SOFTWARE 



Access 

Executive Disk 19.99 

Accolade 

Hardball 19.99 

Atari 

Atariwriter Plus 35.99 

Fllemanager 11.99 

Music Painter 11.99 




ACCESS 5 

Leaderboard Golf 1 



99 



Atari Program Exchange 

Misc. Programs (cassettes) ... .at 1.99 
Broderbund 

Printshop 25.99 

Karateka 14.99 

Cygnus 

Starfleetl 32.99 

Datasoft 

Alternate Reality (dungeon) 25.99 

221 Baker St 21.99 

Electronic Arts 

Pinball Construction 9.99 

Firebird 

Silicon Dreams 21.99 

Jewels of Darkness 21.99 

Microprose 

Top Gunner 14.99 

F-15 Eagle Strike 21.99 

Silent Service 21.99 

Origin Systems 

Ultima 4 36.99 

Roklyn SPECIAL 

Anti-Sub/Journey to Planet , . (ea.) 3.99 

Strategic Simulations 

Gemstone Warrior 1 1 .99 

Sublogic 

Flight Simulator II 31.99 

Scenery CALIF 14.99 

X-Lent 

Typesetter 22.99 

Printshop Interface 21.99 



MD1-MSS/DD5V4" 7.99 

MD2-DM DS/DD5V4" 8.99 

MF-1DDMSS/DD3V2" 12.49 

MF2-DDM DS/DD3V2" 18.49 

Sony 

MD1DSS/DD5V4" 7.99 

MD2DDS/DD5V4" 9.49 

MFD-1DDSS/DD3V2" 12.49 

MFD-2DDDS/DD3V2" 19.49 

Allsop Disk Holders 

Disk File 60-51/4" 9.99 

Disk File 30-31/2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 

ICD (XL/XE) 

Sparta DOS Construction Set . . .28.99 

US Doubler/Sparta DOS 47.99 

Real Time Clock 48.99 

RamboXL 29.99 

Multi I/O Board 256K 169.00 

Multi I/O Board 1 Meg 299.00 

USDoubler 28.99 

J. ATARI ST .. 
ALGEBRA I 



ST SOFTWARE 




ATARI 

Algebra I Vol. 1 
GDE5 



i6 



99 



Accsss 

Leaderboard Golf 22.99 

Activision 

Hacker II Doomsday 29.99 

Antic 

Stereo CAD 3-D 54.99 

Avant Garde 

PC Ditto 64.99 

Batteries Included 

Degas Elite 38.99 



ST SOFTWARE 



Comnet 

ST Term 21.99 

Dae 

Easy Accounting 59.99 

Electronic Arts 

Gridiron Fooball/Auto Duel.(ea.) .30.99 

Isgur Portfolio 129.00 

Firebird 

Jewels of Darkness 21.99 

Infocom 

Beyond Zork 34.99 

Michtron 

Major Motion 25.99 

Microprose 

Gunship 32.99 

F-15 Strike Eagle 24.99 

Miles Software 

ST Wars 25.99 

Mark Williams 

C 119.00 

Paradox 

Wanderer (3D) 25.99 

WarZone/Fireblaster 26.99 

Psygnosis 

Barbarian/Deep Space (ea.) 26.99 

Soft Logik Corp. 

Publishing Partner 54.99 

Strategic Simulations 

Rings of Zilfin 23.99 

Sublogic 

Flight Simulator II 32.99 

Timeworks 

Swiftcalc/Wordwriter (ea.) 47.99 

Partner ST 37.99 




UNISON WORLD 
Printmaster Plus 



Word Perfect Corp 

Word Perfect 4.1 . . 



'21 



99 



.189.00 



In the U.S.A. and in Canada 

Call toll-free: 1-800-233-8950 

Outside the U.S.A. call 717-327-9575, Fax 717-327-1217 
Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 
CMO. 101 Reichard Ave., Dept. B7, Williamsport, PA 17701 

ALL MAJOR CREDIT CARDS ACCEPTED. 

POLICY- Add 3% (minimum *7.00) shipping and liandling. Larger shipments may require additional charges. Personal and company checks require 3 weeks to 
clear For faster deliverv use your credit card or send cashier's check or bank money order. Credit Cards are NOT charged until we ship, Pennsylvania residents 
add 60/0 sales tax All prices are U.S.A. prices and are subject to change and all items are subject to availability. Defective software will be replaced with the same 
item only Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. 
All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic errors. 
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WHERE TO 
WRITE 

AU submissions should be sent to: ANALOG 
Computing, P.O. Box 1413-M,0., Manchester, CT 
06040-1413. AU other editorial material (letters, press 
release, etc.) should be sent to: Editor, ANALOG Com- 
puting, 9171 Wilshire Blvd., Suite 300, Beverly Hills, 
CA 90210. 

Correspondence regarding subscriptions, including 
problems and changes of address, should be sent to: 
ANALOG Computing, P.O. Box 16927, North Holly- 
wood, CA 91615, or call 1-818-760-8983. 

Correspondence concerning a regular column should 
be sent to our editorial address, with the name of the 
column included in the address. 

We cannot reply to all letters in these pages, so if 
you would like an answer, please enclose a self- 
addressed, stamped envelope. 

An incorrectly addressed letter can be delayed as long 
as two weeks before reaching the proper destination. 



ADVERTISING 
SALES 

Address all 

advertising materials to: 

Janice Rosenblum — Advertising Production 

ANALOG Computing 

9171 Wilshire Blvd., Suite 300, Beverly Hills, CA 

90210. 



JE Publishers Representative 

6855 Santa Monica Blvd., Suite 200 

Los Angeles, CA 90038 



Los Angeles 

San Francisco 

Chicago 

Denver 

New York City 



(213) 467-2266 
(415) 864-3252 
(312) 445-2489 
(303) 595-4331 
(212) 724-7767 



PERMISSIONS 

No portion of this magazine may be reproduced in 
any form without written permission from the publish- 
er. Many programs are copyrighted and not public 
domain. 

Due, however, to many requests from Atari club libraries 
and buUetin-board systems, our new policy allows club 
libraries or individually run BBSs to make certain pro- 
grams from ANALOG Computing available during the 
month printed on that issue's cover. For example, soft- 
ware from the July issue can be made available July 1. 

This does not apply to programs which specifically 
state that they are not pubhc domain and, thus, are not 
for public distribution. 

In addition, any programs used must state that they 
are taken from ANALOG Computing magazine. For 
further information, contact ANALOG Computing at 
(213) 858-7100, Ext. 163. 



SUBSCRIPTIONS 

ANALOG Computing, P.O. Box 16927, North 
HoUywood, CA 91615; (818) 760-8983. Payable in 
U.S. funds only. U.S.: $28-one year, $54-two years, 
$76-three years. Foreign: Add $7 per year. For disk 
subscriptions, see the cards at the back of this issue. 



AUTHORS 

When submitting articles and programs, both program 
listings and text should be provided in printed and mag- 
netic form, if possible. Typed or printed text copy is 
mandatory, and should be in upper- and lowercase, with 
double spacing. If a submission is to be returned, please 
send a self-addressed, stamped envelope. 

For further information, write to ANALOG 
Computing, P.O. Box 1413-MO, Manchester, CT 
06040-1413. 
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V V V V V V 

"What's new in the 8-bit world?" 



Nothing. I have seen so few product 
releases for the "little" Atari it's amaz- 
ing. Sure, there's some new software 
from time to time, but mostly from small 
companies (more often than not one- 
man operations. . .real Atari en- 
thusiasts). The big software institutions 
have totally forgotten about this market 
of ours ... No, I take that back: Spring- 
board recently released Newsroom for 
the offspring of the ol' 400/800 line — 
and it's a great program. Of course. 
Atari is busy, producing game car- 
tridges for the XE game machine. Stuff 
like Blue Max. Remember that game. 




^ age-wise. That's a fairly mature group 
to be just playing games. No. You're out 
there using your computer for produc- 
tive causes. And that leads me to the 
question. . .WHAT? I would love to 
know what you loyal Atari users are do- 
ing out there. It's a known fact that Atari 
computer owners are one of the most 
(if not THE most) loyal groups around 
n regards to supporting their machine. 
To an Atarian the common phrase "but 
I thought Atari just makes games" is 
fightin' words sure to bring a string of 
defensive remarks. I heard that com- 
ment years ago, even heard it last week. 




Itor-ia,! 



originally produced in disk format by 
Synapse? What, maybe four years ago 
or so? Of course, I don't mean to knock 
the XEGS, this 8-bit offshoot; it's proba- 
bly the last hope for our aging 6502 
machines— what with most of the great 
8-bit programmers having moved to the 
ST or whatever. What really puzzles me 
is I KNOW there are tens of thousands 
of do-or-die 8-bitters out there. The fact 
that we sell a zillion copies of ANALOG 



Computing every month proves that. 
So, what are you doing with your 400? 
Or 800? Or XL or XE? It can't just be 
sitting in the closet or you wouldn't be 
reading this right now. Are you playing 
games? Are you still using your com- 
puter for word processing? Telecom- 
municating? Or (gasp, dare I say it?), 
are you using your wonderful little 
machine for business? The readers of 
this magazine average in the mid-30s 



The 8-bit line has to be one of the most 
least understood products of our time. 
But getting back to my interest in Atari 
computer uses. Take a few minutes and 
write in. Even if you don't think you do 
anything special with your 8-bit, you 
might be surprised. Let us know what 
your computer does for you. We'll pub- 
lish the most interesting responses . . . 
and you and your computer will be 
famous! fl 
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800 4 PIECE BOARD SET $28.50 

SET INCLUDES 800 MAIN, CPU, 10K ROM AND POWER BRDS 
ALL MODULES NEW AND COMPLETE WITH ICS 



800/400 MODULES 

'9.50 ea. 

• 800 Main Board 
•8001400 CPU with GTIA 

• 800 10K"B"O.S. Module 

• 16K HAM less RAM IC'S 

• 400 Main Board 

• 800 Power Supply Board 

• 400 Pcmei Supply Board 

• 800XL Modulator 



IC'S $4.50 ea. 

• CPU .... CO14806 

• POKEY C012294 

• PIA C014795 

• GTIA . . . CO14805 

• ANTIC . . C012296 

• CPU .... CO10745 
•PIA ... . CO10750 
•CPU ... . C014377 

SERVICE RATES 

•800 S39.50 

•850 $39.50 

•810 $69.50 

•1200XL... '149.50 

• 1050 $75.00 

INCLUDE $7.00 RETURN 
•^IHIPPING AND INSURANCE 



POWER PACKS 

Replacement transformer for; 
800/400, 810, 1060, 1200XL 

and 1020 units $14.60 

1030 Power Pacl< .. . $9.60 

1050 MECH 

Factory fresh TANDON 
mechs. make diflicuit repairs 
a snap. Units are complete 
with Head, Stepper, Spindle 
motor, belt etc. Just plug in, 
no difficult alignments or 
adjustments required. $47.50 

MISC. HARDWARE 

600XL 64K Upgrade $29.95 
Fastchip for eOCV400 $15.50 

Atari Joystlcli $7.00 

Atari Paddies $6.60 

BOARD SETS 

New Parts corrplete with IC's 
800 4 PIECE BOARD SET 
Includes 800 Main, CPU, 10K 
ROM and Power Brd. $28.60 
400 3 PIECE BOARD SET 
Includes 400 Main, CPU and 

Power Board $19.60 

810 BOARD SET 
Sideboard with Sep., Power 
and Analog Boards . $67.60 



REPAIR MANUALS 

SAMS Service Manuals lor the 
following units; 800, 800XL, 
130XE, 400, 1050 .... $19.60 
520 ST Service Man. . $37.60 

PILCfT PROGFiAlvWING 
CAFfT + MANUALS $1750 

SOFTWARE 

Pac-Man Cartridge .. . $4.00 
Deluxe Invaders Cart. . $4.00 
Journey/Planets Cart. $4.00 
Gorf Cart. 800/400 . . . $4.00 

Drop Zone Disk $9.95 

Big Math Atta;k Disk. $5.00 

Pathfinder Disk $5.00 

Encounter on Questar $5.00 
Musical Pilot Chlldware $5.00 

Basic Cartridge $10.00 

Q'Bert Cartridge $10.00 

Donkey Kong Cart. . . . $5.00 

Eastern Front Cart $5.00 

Atlantis Cartridge $5.00 

Crosslire Cart $5.00 

COMPUTER BOOKS 

Inside Atari Basic $5.00 

Atari Basic Ref. Man. $5.00 
XE Users Handbook $17.60 
XL Users Handbook $17.60 
/Assembly Language $19.96 
Advanced Proa $19,50 



CALL TOLL FREE 1-800-551-9995 

INSIDE CALIFORNIA OR OUTSIDE U.S. PHONE 415-352-3787 



AMERICAN TECHNA- VISION (T.V.) 

Mail Order 15338 Inverness St, San Leandro, Oil 94579 

Service Center 2098 Pike Ave., San Lfian*o, Ca. 94577 

NO MINIMUM ORDERI We accept money orders, personal checks or C.O.D.s, VISA, 
Master/Card okay. Credit cards restricted to purchases over $20.00. No personal checks on 
C.O.D. - Shipping: $4.00 shipping and handling on orders under $160.00. Add $2.26 lor C.O.D. 
orders. In Canada total $6.00 tor shipping and handling. Foreign shipping extra Calif, residents 
Include 7% sales lax . Prices subject to change without notice. Atari Is a trademark of Atari Corp. 



SOUTHERN SOFTWARE 

205-956-0986 

24 HOUR PHONE 

CALL OR WRITE FOR FREE CATALOG 

ALL 8 BIT AND ST SOFTWARE IN STOCK 

CALL FOR PRICES AND LATEST TITLES 

SOFTWARE IN STOCK FOR OTHER COMPUTERS 

PRICES LISTED FOR MAIL ORDER ONLY - ADO 10% ON PHONE ORDERS 
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ST COWUTERS 


CALL 


CHIPMUNK 


29.95 


80 COL CARD 


79.95 


1060 DISK DRIVE 


239.95 


ATARI URITER PLUS 


39.95 


COMPULSIVE COPIER 




lOSO W/HAPpr INST 


399.95 


BASIC CARTRIDGE 


19.95 


COPY 11 ST 






139.95 


BASIC IE 


49.95 


XM-301 MODEM 




XF5S1 OISX DRIVE 


189.96 


BASIC XL 


39.95 


SX-212 MODEM 




SZO DISK DRIVES 


CALL 


SUPER ARCHIVES 


59.95 


Sm804 PRINTER 






109.95 


BIT WRITER 


69.95 


1027 PRINTER 




6X OHNIHOH 


59.95 


DOS 2.5 U/MANUAl 


9.95 


XDMIZl LQ PRINTER 


199.95 


ACCESSORIES 


CALL 


IL/XE POWER SUPPLY 


27.95 


ATARI LAB ST KIT 






49.95 


1027 INK ROLLER 


4.97 


JOY STICK 




AVATEX IZOO 


79.95 


HAPPY ARCHIVER 


34.96 


LOGIKHRON CLOCK 


39.95 


AVATEX 2400 


179.95 


I/O tO!^ 


13.95 


HARK VILLIAMS C 




CHIP/ARCHIVE* 810 


69.95 


I/O CORD 10 FT 


19.95 


HEGAHAI C 






179.95 


HAC/65 


64.95 


MOOULA-2 




EZ RAH 520 


169.96 


HAC/65 TOOl KIT 


27.95 


P.R. CONNECTION 


59.95 


HAPPY lOSO ENHAHC 


119.95 


ACTION 


64.95 


WARP SPEED DOS XL 




HAPPY eiO ENHAHCC 


104.95 


ACTION TOOL KIT 


27.95 


PC BOARD DESIGNER 169.95 




39.96 


BASIC XL TOOL KIT 


27.95 


PROLOG 






CALL 


BASIC XE TOa KIT 


27.95 


PUBLISH PARTNER 






299.96 


PERSONAL PASCAL 


74.95 


SOUND DIGITIZER 


119.95 


ICO HIO 2S6K 


199.95 


SPARTADOS TOOL KI 


24.95 


• WE HAVE COLOR RIBBONS • 


XE ADAPTER FOB HIO 19.95 


ST HOST ADAPTER 
SPARTS DOS CART 
OHNIVIEH XL/XE 


99.95 
69.95 
36.95 


FOR ALL PRINTERS 


CALL 


PRINTERS 


CALL 


• ATARI REPAIR PRICES . 


PRIHTER CONNECT. 


39.95 


NEUELL 256K 


34.95 


ITEMS NOT LISTED 


CALL 


R-TIHE CARTRIDGE 


49.95 


OHNinON 400/800 


44.95 


1050 DISK DRIVE 


89.95 


RAMBO XI UPGRADE 


29.95 


ST COPY 


29.95 


130 IE 




256K CHIP SET 


49.95 


NUMERIC KEYPAD 


39.95 


65 XE 






39.95 


TOP DOS 1.5 PLUS 


29.95 


520 DISK DRIVE 


89.95 


LIGHT PEN 


69.95 


PRINT/HODEH CABLE 


13.95 


620 ST 


139.95 


U.S. DOUBLER 


29.95 


RAHCHARGER 


139.95 


850 INTERFACE 




UPRINT INTERFACE 


59.96 


RAHCARO FOR MO 


129. 9S 


ATARI PRINTER 


69.95 


XL/IE BOS 


49.95 


SHART LIK* MOOEH 


189.95 


XL/XE/150 POW SUP 





PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

ADO $5 FOR SH1PPM3 AND WSUnANCE MOST ORDERS SHIPPED SAME 

DAY FOREIGN ORDERS WELCOME WITH SUFFICIENT POSTAGE 

INCLUDED . ALABAMA RESIDENTS ADD 7% SALES TAX . ADO 6% FOR 

VISA ADO $5 FOR AIRMAL ADO $ 1 5 FOR OVERNIGHT SHIPMENT 

ALLOW THREE WEEKS FOR PERSONAL CHECKS 

SOUTHERN SOFTWARE 

1879 RUFFNER ROAD BIRMINGHAM , AL 35210 
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~^K HACK PACK 



Special OFFER 



f\ 1a1 •! W-M •} L M •Tm\^.H ^ •\^<(i^ PARROT II 

^M »*1 . ^ ■•M *J I H ^•AiJHL^ VU^'^n Ail New Parrot sound c 



AlPHA SYSTEMS Is constantly Innovating to provide more power 
lor your 8-bltAtarls 



The Alpha Systems HACK PACK contains oil ou 

linesl products lor making Bock-up copies, 

AnalV2ing, Understonding ond Protecting your 

Atari progroms. II comes complete with Atari ^ „, „s ru 

Protection Techniques (Book and Disk 1), Advonced Protection Techniques (Book ana Disk II). The 

Chipmunk, The Sconolyzer, The Impersonator and Disk Pack 1000, Worth over SI 50 Gel Ihem all 

for the special price ol Just $99.95 

Atari Soflware Protection Techniques Voll & II 

These Book and Disk packages detail the most advanced copy proleclion methods in use today I hey 

guide you through the melhods used to create the ptoteclion as well as the copying techniques to gel 

around Ihem They include Inlormallon on Phreaking • Hacking • On-line security • Block boxes ■ Sell- 

deslrucling programs • Pirate bulletin board systems • Logic bombs • New pirocy laws •Hardware 

data keys • Weak sectoring (Phantam, Fuzzy and unstable sectors) • Overtilled tracks • CRC errors ■ ^^.ffH „— _ u nn/^l/'ED 

Bunk Select cartridges and MUCH, MUCH MORE. The disks include aulomalic program ptoteciors. WM^^ KUK-n-KWVI^CK „|in ,sa\ songs (digitized 

Protection Scanners, directory hiding and more. •*^«/iih 

BOOK I and DISK I $24.95 

BOOK II (Advanced profection) and DISK 11 $24.95 

Special Oder, Order botfi jets lor Only $39.95 



digilizer lor your Atari Parrot II is a 
sophisticated new hardware device that plugs mto your joyslick 
port. Parrot II has two inputs. One for a microphone ana "ne for o 
powered source such os a tape player, radio or Compact Disk, 
Tlie Powerful Patrol II software lets you record sounds into your computer and play them bach on any 
Atari Poirol II turns your computers keyboard into a musical mstfumenl with nine different sounds 
covering three ocloves each. The sounds con be anything, a dogs bark, a piano, a complete drum 
sel, u symphony or your own voice. 

Parrol II lets you modify Ihe sounds on o graphic display ta Creole brond new sounds and special 
ellecis Best ol all, the sounds and woices can be put into your own programs thai con be used on 
any stanflard Atari Explore Ihe world of digital sound and music, ONLY $59.95 
Pre-Recorded Sound Disk Mote pre-recorded sounds for Parrot $4.95 
PARROT II Demo Disk (Does not require Parrot to run) $5.00 

a fast paced, multi-player Irivia game ihot mixes queslions 



CHIPMUNK 

Automolic Disk Bad Up System. Moke perfectly running unprotected back-up copies of hundreds ol 
the most poputat Ate ' programs. Chipmunk's saphisticatad programming Automotically tinds and 
BEMOVIS copy pro: sllon from most Atari programs, Bock-up even heavily protected programs with 
ease Finally o back-jp system Ihot needs no special hardware or skills, 
(If you need a full lisl of what Chipmunk copies, coll or write for our free catalog) $34.95 



Sconolyzer Automalicolly scan & analyze commercial programs Unlock programming secrets and 
learn from Ihe masters $29.95 

Imoersonolor Corliidge to Disk bock up system, Creole running bock-up copies of any cartridge 

(up, W16K) $29.95 




"^" 



CHEAT 



stuck lusl when you need another life' Cheat is on innovotive new product thai gives you the chance 
vou need to beat your tavorite gomes, Crieot works with hundreds ol Atari gomes lo give you 
unlimited lives or power End Ihe frustration ana gel hours mote enjoymeni (rom your gomes, (Coll or 
wrilc Alpha Systems lor our free calclog wilti a lull list ol me programs Itiol work wilh Cbean ONUT $24.95 

BASIC TURBOCHARGER ^^ 

NOW tar the first lime a BASIC programmer con gel the power flexibility and incredible speed ol 
machine language BASIC TURBOCHARGER is a book and disk pockoge that contains over 1 50 
ready to use machine language routines. Complete instructions show how lo add them lo your own 
BASIC proqtams to gel these teotures and more: • Smoolh Scrolling • Player/Missile conlrol -Load 8; 
Save Picture files • Sorting and Searching • Special Ellecis Graphics • Incredible Speed • Much, Much 
More • Over 1 50 programs You've heata ol Ihe power ol Assembler now harness il for your own 
needs, S24 95 -^^^m^^^^^ _ — 

" „Ho„. 216-374-7469 




with Parrot) Be Ihe llrst to Identily Ihe songs ond onswer Ihe music trivia questions, Pop-N-Rocker 
comes wilh three data disks and lets you odd new questions so it will never gel old. You con use a 
Parral Sound digilizer to add new songs too! Use any kind ol music trom Rock to Classical to 
Nursery Rhymes, A new concept in entertainment and a perfect add-on tor Potro^ ♦24.95_ 

COMPUTEREYES & MAGNIPRINT II + 

Turn youi coinpulei into a digital portrait studio This complete package lelsl 
you capture, save & print digital images tram your Video Comero, VCR 
or TV COMPUTEREYES hardware plugs directly into your joyslick ports lor 
easy use, PrinI your picture on a 6 tool poster $119.95 

ComputerEyes camera system 

Comes complete wilh everything above, plus a block and white video . - ■^'' 

camera onU connecting coble $329.95 me/iiiMlniM 

Grophlcs 9 Soltwore - AUd o new dimension lo your COMPUTEREYES giant WAll SIZED POSTERS. 

piciures -, captures images in 1 6 shades of grey $12.00 

Magniprint II -I- . , , . 

Easily Ihe most powerful print program available today Print graphics from almost any tormat in 

hunUicas ol shapes sizes, and shades Supports color printing and lels you create giant posters. 

Maqniprinl 11 + lels you siretoh and squeeze, invert, odd lexl, odjusl shaUing and much more 

Works with EPSON, NEC, Clloh, Panasonic, Gemini, Star XMM80I, and compatible printers (850 

interface or equivalent required), $24.95 

Graphics ■ftansformer „ . , , 

Now you con combine Ihe most powerful features of all your graphics progroms Creole print shop 

icons Irom a Koalo pad picluie, trom a photo digitized wilh ComputerEyes, or any piclure tile, 

Graphics Transformer lets you Shrink, Enlorge and Merge pictures tor unequaled llexibilily, $22.95 

YOUR ATARI COIVIES ALIVE 

SAVE MONEY Finollv ail allemalive to buying expensive compuler odd-ons Youi Alan Comes Alive 
shows vou how lo built tliem yourself. This 'How-To' book and disk pockoge gives you coniptete 
step by step instruclions ana programs needed lo buill and conlrol these exciting devices ond MORE: 
• Light Pen • Lighl & Motor Controllers -Alarm Systems • W)ice Recognition . Environmental Senjsonj^ 
•Data Decoders • More than 1 50 pages, Itour Atari Comes Alive 



$24.95 



HOTUHE _ 

VISA & MASTtPCABD, OPDER BY ALPHA SYSTEMS 1012 SKYUND DPIVE MACEDONUk, OH 44056 FREE BONUS: PEtUXE SPACE GAMES (3 games 

PHONE OR SEND MONEY ORDEI! TO: on a disk) Free wilh any order ol 3 oi more Hems include S3, 00 slip S hdig (US Carodo) Ohio res odd 51-2% soles tox, 

SYE-TErvis Foreign orders odd S8 00 shp & hldg. Coll or wnle lor Iree cololog. Customer Seivice Line (216) 467-5665 M-F 9-3, 
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Editor provides an easy method 
to enter our machine language 
listings. It won't allow you to skip lines or enter bad data. For convenience, you 
may enter Ustings in multiple sittings. When you're through typing a Usting with 
M/L Editor, you'll have a complete, runnable object file on your disk. 
There is one hitch: it's for disk users type in lines with repetitions of the same 



only. My appolgies to those with cassette 
systems. 

Listing 1 is M/L Editor's BASIC Hst- 
ing. Type it in and, when it's free of ty- 
pos, save a copy to disk, then run it. 

On a first run, you'll be asked if 
you're starting a new Usting or continu- 
ing from a previously saved point. Press 
S to start, or C to continue. 

You'll then be asked for a filename. 
If you're starting a new listing, type in 
the filename you want to save the pro- 
gram under, then press RETURN. If 
there's already a file by that name on 
the disk, you'll be asked if you wish to 
delete it. Press Y to delete the file, or 
N to enter a new filename. 

If you're continuing a file, type in the 
name you gave the file when you start- 
ed it. If the program can't find the file, 
you'll get an error message and be 
prompted for another filename. Other- 
wise, M/L Editor will calculate where 
you left off, then go on to the data en- 
try screen. 

Each machine language program in 
ANALOG Computing is represented by 
a list of BASIC data statements. Every 
Une contains 16 bytes, plus a checksum. 
Only the numbers following the word 
DATA need to be considered. 

M/L Editor will display, at the top of 
the screen, the number of the line 
you're currently working on. As you go 
through the line, you'll be prompted for 
each entry. Simply type the munber and 
press RETURN. If you press RETURN 
without a number, the default is the last 
value entered. 

This feature provides a quick way to 



number. As an added convenience, the 
editor will not respond to the letter keys 
(except Q for "quit"). You must either 
enter a number or press RETURN. 

When you finish a line, M/L Editor 
will compare the entries' checksum with 
the magazine's checksum. If they 
match, the screen will clear, and you 
may go on to the next line. 

If the checksums don 't match, you'll 
hear a buzzing sound. The screen will 
turn red, and the cursor will be placed 
back at the first byte of data. Compare 
the magazine listing byte by byte with 
your entries. If a number's correct, 
press RETURN. 

If you find an error, make the correc- 
tion. When all data's valid, the screen 
will return to grey, and you'll be allowed 
to begin the next line. 

Make sure you leave your disk in the 
drive while typing. The data is saved 
continuously. 

You may stop at any time (except 
when you have a red screen) by enter- 
ing the letter Q for byte #1. The file will 
be closed, and the program will return 
you to BASIC. When you've completed 
a file, exit M/L Editor in the same way. 

When you've finished typing a pro- 
gram, the file you've created wiU be 
ready to run. In most cases, it should 
be loaded from DOS via the L option. 
Some programs may have special load- 
ing instructions; be sure to check the 
program's article. 

If you want the program to run auto- 
matically when you boot the disk, sim- 
ply name the file AUTORUN.SYS (make 
sure you have DOS on the disk ). 



The two-letter checksum code 
preceding the line numbers here is 
not a part of the BASIC program. For 
further information, see the "BAS- 
IC Editor II," in issue 47. 
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«Z IB DIM BF(161,H$(4I,A$I1),BSC1],FS(15I 

# FIS C15) 
LF 11 DIM H0DS(4J 

BH 2B LINE=1000:RETRNrl55;BaCKSP=126:CHKS 

1JM=0:EDIT = 
GO 39 G05UB 450!P05ITI0M IB, 6!? "Btart Or 

Continue? "KGOSUB SOBl? CHR$iai 
ZG 40 P05ITI0H IB, 8:? "FILEMOME"; ; INPUT F 

S;POKE 752,1:? " " 
FE 58 IF LEN(FS><3 THEM POSITION 2B,1B!' 

GOTO 40 

NF eo IF FS(1,2J<>"D!" THEN F1S="D 1 ■• 1 FIS ( 

3)=F$:G0TB 6B 
KL 70 F1S:FS 

TN 8B IF CHR$C(1)="5" THEN 12B 
FD so TROP 43B:0PEN tI2, 4 , B, F1$ : TRAP 110 
HO IBB FOR K = l TO ISIGET ttZ,a:NEHT H;LINE 

=LINE+10;G0T0 100 
MM 110 CL05E tl2!0PEN 112, 5, 8, Fl« : GOTO 178 
«T 120 TRAP 16B!0PEN tt2, 4, 8, Fl$ ; G05UB 440 

[POSITION 10,10:? "FILE ALREADY EXISTS 

! !":P0KE 752,8 
ZU 13BP05ITI0N 19,12;? "ERASE IT? "llGOS 

UB 5BB:P0KE 752, 1 : ? CHRS CA> 
UN 140 IF CHn5CA)="M" OH CHRS(AI="n" THEM 

CLOSE tt2;C0T0 30 
OG 158 IF CHRS(A)<>"Y" AND CHRS (A] <>"!;" T 

HEN 138 
BH 168 CLOSE n2:0PEN 02,8, 8, FIS 
IE 178 GO SUB 45B:P05ITI0N 10,11? " IMi lTB ir B 

ffidl: ";line:chk5UM=o 

GH 180 L1=3:F0R K=1 to 16:P0SITI0N 13tKX< 
10)tl2)»(K>S),K»2:POKE 752,8:? "BVTE B" 

)K;": "; :gosub 31o 

KH 1?8 IF EDIT AND L=B THEN BYTE^BF (X> :GD 

TO 210 
FY 280 BYTE=VOLCNS) 
OZ 281 M0D5=H$ 

BU 210 POSITION 22,X+2:' BYTE;" " 
YZ 220 BFCKJ=BYTE:CHK5UM=CHP(SUMtBYTE«X:lF 

CHK5UM>3335 THEN CHKSUM=CHKSUM-1000B 
MS 238 NEXT X : CHK5UM=CHK5l/M»LIHr: IF CHKSU 

M>3959 THEN CHKSUM=CliK5UM-1000B 
IG 240 POSITION lZ,Kt2:P0KE 752,8:? "CHEC 

ksum: "; :L1=4:gosub 310 

EH 250 IF EDIT AND L=0 THEN 278 

OH 260 C=U0LCN5) 

SY 278 POSITION 22,Xt2:? C;" " 

IL 288 IF C=CHKSUM THEM 380 

DI 298 COSUB 448 : EDII = 1 : CHKSUH=0 : GOTO 180 

LM 300 FOR X=l TO 16:PUT 02, BF CXJ : NEXT X: 

LIHE=LINE+10:EDIT=8:G0T0 178 
F« 310 L=8 

KZ 328 COSUB 58B:IF CA=OSC("0"J OR A=A5C { 
„« ^'3!.'" '>N?>X = 1 ft"D NOT EDIT THEN 420 
PO 330 IF AORETRN and AOBACKSP and tA<4 

8 OR A>57) THEN 320 
DX 331 IF A=RETRN and NS="" THEN NSzMODS 
TD 335 IF A=RETRN AND L=8 AND X>1 THEN 35 


JR 340 IF CCA=RETRH AND NOT EDIT) OR A=B 

ACK5P) AND L=0 THEM 320 
DH 350 IF A = RETRN THEN POKE 752,1:? R 

ETURN 
GG 360 IF AOBACKSP THEN 408 
5A 370 IF L>1 THEN NS=HS CI, L-1) : GOTO 390 
AS 380 NS— "" 

RE 390 ? CHRSIBACKSP); ;L=L-1:GOTO 320 
B8 400 L=Ltl;IF L>L1 THEN A=RETRN:GOTO 35 


MX 410 N5(L)=CHRSCA) :? CHRS (A) ;: GOTO 320 
KM 420 GRAPHICS OIEHD 
YT 430 COSUB 440!P05ITI0N 10,10:? "NO SUC 

H FILE!":F0R H=1 to 1000:NEXT X:CL05E 

B2:C0T0 30 
FD 440 POKE 718,48:S0UND 0, 100, 12, 8 : FOR X 

=1 TO 50:HEKT X;S0UND 0,0,0,0:RETURN 
MY 450 GRAPHICS 23!P0KE 16,112:P0KE 53774 

,112:P0KE 559,0iP0KE 710,4 
XR 460 DL=PEEKC560) t256«PEEK(561)t4:P0KE 

DL-1,70:P0KE DL+2,6 
HM 470 FOR X=3 TO 39 STEP 2:P0KE DLtX,2:N 

EXT X:F0R K = 4 to 48 STEP 2:P0KE DLtX,B 

ZH 480 POKE DLt41,6S;P0KE DL+42 , PEEK (560) 
:P0KE DLt43,PEEKC561) ;P0KE 87,0 

AC 490 POSITION 2,01? "analog Hi editor": 

POKE 559,34:RETURH 
WZ 509 OPEN tll,4,0,"K:":GET tIl,A:CL05E HI 

:RETURN g. 
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ComputerVisions 



3257 Kifer Road 
Santa Clara, CA 95051 
(408)749-1003 



A 



STORE HOURS 
TUE - FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN -MON 



H^Rr> TO JE^TJWZ:> SOF"JrW^^RE -riTZ^ES 



SPINNAKER SOFTWARE - $9.95 EACH 

(all titles of cartridge} 
ADVENTURE CREATOR (age 8-adull) 
Children use their own imaginations to create their 
own adventures while learning about computer 
programming design and logic. 
ALF IN THE COLOR CAVES (age 3-6) 

As children maneuver Alf through the mazes they 
improve their routing and predictions skills and it 
helps them to understand cause- and- effect 
relationships. 
ALPHABET ZOO (ages 3-8) 

Strengthens letter recognition skills as children 
associate letters of the alphabet with the sounds 
they represent. 
DELTA DRAWING (age 4- adult) 

An easy and friendly introduction to computer 
leaming.Builds an understanding of procedural 
thinking and encourages children to exercise their 
creativity. 
PACEMAKER (age 3-8) 

Helps children become comfortable with computer 
fundamentals such as: menus, cursors, graphics, 
and improves memory and concentration. 
KINDERCOMP (ages 3-8) 

Helps children improve their reading readincas and 
counting skill and familiarizes them with the 
keyboard. 
KIDS ON KEYS (age 3-9) 
Familiarizes children with the computer keyboard 
as they learn to identify numbers, letters, and 
words and associate them with images on the 
screen. 
STORY MACHINE (age 5-9) ♦Wont work on XL/XB* 
Helps children learn to write correctly and develop 
a positive attitude towards writing. 




HAY DEN SOFTWARE - $9.95 EACH 

(all titles on disk) 
DON'T SHOOT THAT WORD (all ages) 
A fun way to practise recognizing words by 
associating them with pictures. 
MONKEY SEE, MONKEY SPELL (all ages) 
Children will play for hours as they race the 
monkey up and down the Letter Tree to spell 
correctly the objects pictured at the bottom of the 
screen. 
MICRO ADD/ SUBTRACT (preschool) 

Colorful animation and familiar childhood tunes 
teach pre-schoolers the basic principles of addition 
and subtraction. 

MICRO SUBTRACTION (pre-school) 
An animated series of exercises to teach children 
number values and the basics of subtraction. 
MICRO MULTIPLICATION (pre-school) 
A colorful animated series of exercises to teach 
children number values and the basics of 
multiplication. 
MICRO DIVISION (pre-school) 

A colorful series of exercises to teach children 
number values and the basics of division. 
MATCH UP! (pre-school) 
Colorful pictures engage pre-schoolers in matching 
and sorting a series of familiar objects. 
SHAPE UP! (pre-school) 

Pleasing animation and amusing sound effects will 
delight your pre-schoolers as they learn shape 
discrimination. 



FISHER PRICE SOFTWARE $8.95 
MEMORY MANOR (on cartridge age 4-8) 
Captivating pictures and sound help improve 
memory skills and concentration, (limited quantity) 





THUNDER MOUNTAIN - $8.95 EACH 
OR ALL 6 FOR $39.95 

(all titles on disk - ages 4- 8) 

ABC'I WITH THE TINK TONKS 
Five educational activities help children learn ABC 
order and become familiar with the computer 
keyboard. Offers multiple levels of difficulty. 

COUNT AND ADD WITH THE TINK TONKS 
An entertaining program that teaches basic math 
concepts, practice counting and presents simple 
problems to solve. 

SUBTRACTION WITH THE TINK TONKS 
Strengthen math skills by solving basic subtraction 
problems in context with multiple levels of 
difficulty. Lively animation and original music 
throughout. 

SPELLING WITH THE TINK TONKS 
An interactive story with five multilevel 
educational activities including spelling and 
vocabulary building. 

BEING A SMART THINKER WITH THE TINK 

TONKS 

Bold, high-resolution graphics help to strengthen 
concentration, memory, and visual discrimination 
skUls. 

DEVELOP THINKING SKILLS WITH THE 

TINK TONKS 
Strengthens reasoning skills, logic, critical 
thinking, concentration, memory, and visual 
discrimination with multiple levels of difficulty. 




SIERRA ON-LINE SOFTWARE 

MR. COOL- $15.95 (cartridge- arcade) 
With Mr. Cool you 11 have a blast in the furnace, 
being cool as a cube, dodging fireballs, and side 
stepping springs. Hell hop into the hearts of game 
players young and old. 

BC's QUEST FOR TIRES - $9.95 (disk - arcade) 
This fast moving game features Thor zipping 
through the comic strip world of B.C. on his 
prehistoric unicycle in an effort to rescue Cute 
Chick from the hungry dinosaur. 

CROSS FIRE- $9.95 (disk- arcade) 

The aliens have you surrounded and laser shots fly 
from all directions. If you are to live, you 11 have 
to concentrate on where the shots are coming 
from and where you're going so you dont get 
caught in the Cross Fire. 

JAWBREAKER - $9.95 (disk - arcade) 

This arcade game takes you to the candy store for a 
wild game of tag. If you can eat all the sweets, it's 
off to the store for another game. A merry maze 
chase game that wUl leave you hungry for more. 

OIL'S WELL - $9.95 (disk - arcade) 

You've hit oil and struck it rich but other oil 
barons have sabotaged your operation. Watch out 
for the steel-munching oozies and explosive land 
mines they've planted. Don't let them cheat you 
out of your millions! 



SESAME STREET - $9.95 EA CH 

(all titles on disk) 
ERNIE'S MAGIC SHAPES (preschool) 
Provides a playful setting featuring lively colorful 
graphics in which children practice visual 
discrimination. 
BIG BIRDS SPECIAL DELIVERY (preschool) 
Improves a childs understanding of the attributes 
of form, class, and function while having fun! 
ASTROGROVER (pre-school) 

Offers experience with early number concepts in 
counting, adding and subtracting while having fun 
in outer space. 




A DVENTURE INTERNA TIONA L 
SCOTT ADAM'S TEXT ADVENTURES - $14.95 
Includes all twelve text adventure stories and 

hint book, (disk) 
THE SORCERER OF CLAYMORGUE 
CASTLE- $8.95 
(disk - graphics and text adventure) 

SPIDERMAN - $7.95 
(disk - graphics and text adventure) 

THE HULK ■ $<.95 
(disk - graphics and text adventure) 
OLIN IN EMERALD - $9.95 
(disk - educational graphics & text adv. age 7- 14) 
MIDWAY BATTLES - $7.95 
(disk - simulation) 
PREPPIE I and U $9.95 
(disk - arcade includes both games) 
STRATOS - $7.95 (disk - arcade) 
C'EST LA VIE - $7.95 (disk - arcade) 
REAR GUARD - $7.95 (disk - arcade) 
TUTTI FRUTTI - $7.95 (disk - arcade) 



RECONDITIONED 
HARDWARE 

(30 DAY WARRANTY) 

1030 MODEM WITH EXPRESS - $29.95 

ATARI TRAK BALL - $9.95 

CX-85 NUMERIC KEYPAD - $7.95 
(includes handler disk) 

ATARI 400 COMPUTER - $29.95 

ATARI 600XL COMPUTER - $49.95 

ATARI 800 COMPUTER (48K) 
$69.95 B or $79.95 A 

ATARI 810 DISK DRIVE 
$110.00 B or $120.00 A 

(B has some scratches, etc. - A is like new) 

ATARI 850 INTERFACE - $89.95 

ATARI 1020 COLOR PRINTER - $29.95 
(40 column width) 




SHIPPING INFORMATION: Prices do not include shipping and handdling - $5.00 minimum. Calif, residents include 7% sales tax. Master card and Visa accepted if your 
telephone number is listed in your local phone directory. Orders may be pre-paid with money order, ca shier check, or personal check. Personal checks are held for three weeks 
before order is processed. C.O.D. orders are shipped via UPS and must be paid in cash. International and APO orders must be pre-paid with cashier check or money order. $20.00 
minimum on all orders. All sales are final - no refunds - All items are fully warranteed - prices are subject to change. Phone orders accepted TUESDAY THROUGH FRIDAY 
from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library for both 8-bit and ST computers. 

Write or call for free catalogue. 
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Lyco Computer 

Marketing & Consultants 



Lyco Means Total Service. 




Mark "Mac" Bowser, Sales Manager 

I would personally like to thank all of our past customers for helping to 
make Lyco Computer one of the largest mall order companies and a 
leader In the Industry. Also, I would like to extend my personal invilalion to 
all computer enttiusiasis who have not experienced the services thai we pro- 
vide. Please call our trained sales staff at our toll-free number to inquire 
about our diverse producl line and weekly specials. 

First and foremost our philosophy Is to keep abreast of the changing 
market so that we can provide you with not only factory-fresh merchandise 
bul also the newesl models offered by the manufacturers at the absolute best 
possible prices. We offer the widest selection of computer hardware, software 
and accessories. 

Feel free to call Lyco If you want to know more about a particular Hem. I 

can't stress enough that our toll-free number is not just for orders, fvlany 
companies have a toll-free number for ordering, but if you just want to ask a 
question about a product, you have to make a toll call. Not at Lyco. Our 
trained sales staff is knowledgeable atrout all the products we slock and is 
happy to answer any questions you may have. We will do our best to make 
sure that the product you select will fit your application. We also have Satur- 
day hours — one more reason to call us for all your computer needs. 

Once you've placed your order with Lyco, we don't forget about you. 

Our friendly, professional customer service representatives will find answers 
to your questions about the status ol an order, warranties, producl availabili- 
ty, or prices. 

Lyco Computar itockB a multlmllton doMar Inventory of factory-fresh 
merchandfaa. Chances are we have exactly what you want right in our ware- 
house. And that means you'll got It fast. In fact, orders are normally shipped 
within 24 hours. Free shipping on prepaid orders over $50, and there Is no 
deposit required on C.O.D. orders. Air freight or UPS Blue/Hed Label shipping 
U avallablft, too. And ell producla carry the full manufacturers' warranllos. 

t can't see why anyone would shop anywhere else. Selection from our huge 
in stock Inventory, best price, service that can't be beat— we've got it all here 
at Lyco Computer. 

10 ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental .US Call: 1-717-494-1030 

Hours: 9AM to 8PM, Mon. - Thurs. 

9AM to 6PM, Friday — 10AM to 6PM. Saturday 

For Customer Service, call 1-717-494-1670 

9AM to 5PM, Mon. - Fri. 

Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 

Risk-Free Policy: • full manufacturers' warranties • no sates tax outside f 

• prices show 4% cash discount; add 4% for credit cards • APO, FPO, 
international: add $5 plus 3% lor priority • 4-WGek clearance on persorial ( 

• we check for credit card thelt • compatabilily not guaranteed • return 
authorization required • price/availability subject to change • Prepaid 
orders under $50 in con., U.S. add S3. 00. 



Monitors 



Thomson: 

230 Amber TTL/12" $79.95 

4120 CGA $219.95 

4160 CGA $254.95 

4460 EGA $349.95 

GB 200 Supar Card $184.95 

4570 $CALL 

Magnavox: 

BM7652 $7995 

BM7622 $79.95 

7BM-6I3 $74.95 

7BM-623 $79.95 

CM8502 $199.95 

CM8505 $209.95 

CMa562 $239.95 

CM8762 $239.95 

8CM-515 $249.95 

Blu* Chip: 

BCM 12- Green TTL $64.95 

BCM ir Amber 1TL $69.95 

NEC: 

Multisync II $599.95 

ATI Technologies: 

Graphics solution $ 1 29.95 

EGA Wonder $1 99.95 

VIP $299.95 



AATARr 



Modems 



Avatex: 

1200e $69.95 

12001 PC Card $69.95 

1200hc Modem $89.95 

2400 $179.95 

24001 PC Card $169.95 

Hayes: 

Smartmodem 300 $149.95 

"imanmodem 1200 $285.95 

•martmodem 2400 $425.95 

Smarteam 

1200 Baud Modem 



Ha/es Compalibl* 



1-800-233-8760 

CIRCLE #106 ON READER SERVICE CARD. 



/ 



Access: 

Triple Pack 

Leader Board Pack . 
Actlvlslon: 

Music studio 

Solid Gold Vol.#1 ... 
Batteries Included: 

Paperclip 80 Col 

Broderbund: 

Print Strop 

Print Shop Compan. 
Graphic Lib. I, II, III . 
Bank St. Writer 



Electronic Arts: 

Pinball Con Set 

Lords of Conquest ... 

Starlleet I 

Chess Master 2000 . 

Music Con Set 

Super Boulderdash . 

One on One 

Firebird: 

The Pawn 



. $11.95 
. $14.95 

. $19.95 
. $10.95 

. $31.95 

. $25.49 
. $22.95 
. $13.49 
. $27.95 

... $8.95 
... $8.95 
$32.95 
$25.95 
.. $8.95 
... $8.95 
.. $8.95 



MIcroleague: 

Microleag. Baseball . 
General Manager .... 

Stat Disk 

87 Team Disk 



MIcroprose: 

Conflict in Vietnam 

F-16 Strike Eagle 

Kennedy Approach 

Silent Service 

Top Gunner 

Strategic Simulations: 

Battle of Antetlem 

Phantasie 

Wargame Construe 

Wizards Crown 

Phantasie II 

Shiloh 

Eternal Dagger 

Sublogic: 

Flight Simulator II 



. $22.95 

. $16.95 

$13.95 

$13.95 

$22.95 
$19.95 
$13.95 
$19.95 
$13.95 

$28.95 
$22.95 
$16.95 
$22.95 
$22.95 
$22.95 
$22.96 

$31.49 



MIcroleague: 

Microleague Baseball . 

General Manager 

Wrestling 

MIcroprose: 

Silent Service 

F-15 Strike Eagle 

Gunship 

Strategic Simulations: 

Phantasie 

Phantasie II 

Road War 2000 

Colonial Conquest 

Sublogic: 

Flight Simulator II 

Scenery Disk 

TImeworks: 

Wordwriter ST 

Partner ST 

Data Manager ST 

Unison Worid: 

Art Gallery 1 or 2 

Print Master 

Fonts & Borders 

Music Studio 

Bureaucracy 

Electronic Arts: 

Arctic Fox 

Empire 

Starlleet I 

Chess Master 2000 

Gridiron 

Epyx: 

Sub Battle Simulator 

Worid Games 

Wrestling 

Winter Games 

Firebird: 

Pawn 

Starglider 

Golden Path 

Guild of Thieves 

Tracker 



$33.95 
$16.95 
$25.95 

$22.95 
$24.95 
$28.95 

.. $22.95 
.. $22.95 
.. $22.95 
.. $22.95 

. $31.49 
.. $14.95 

. $44.95 
,. $39.95 
. $44.95 

. $14.95 
. $19.95 
. $17.95 
. $27.95 
. $22.95 

. $25.95 
. $32.95 
. $32.95 
. $25.95 
. $32.95 

. $22.95 

. $22.95 

$22.95 

$11.95 

$25.95 
$25.95 
$25.95 
$25.95 
$25.95 



A ATARI' ^M Joysticks 




Access: 

Leader Board $22.95 

Tournament #1 $11.95 

10th Frame $22.95 

Actlvlslon: 

Champion. Baseball .... $22.95 
Champion. Basketball . $22.95 
Championship Golf $New 



Tac3 $9.95 

Tac 2 $10.95 

Tac5 $12.95 

Tac 1 + IBM/AP $26.95 

Economy $5.95 

Slik Stick $6.95 

Black Max $10.95 

Boss $11.99 



GFL Football $22.95 S'^ay $19.99 



z" 



r 



n I c r o niej 



I n c 



• 144 cps Draft 

• 36 cps NLQ 

• EZ Operation Front 



NX-1000 



SKIKOSHA 
Sp 180Ai 



Panasonic 



Panel Control 



I 



$179 



95 



NX-1000 $179.95 

NX-1000C $179.95 

NX-1000 Color $225.95 

NX-1000C Color $229.95 

NX-15 $309.95 

Nn-10 $339 95 

Nn-15 $439.95 

NB-15 24 Pin $699.95 

NB24-10 24 Pin $425.95 

NB24-15 24 Pin $579.95 

Laser B $CALL 

BROTHER 

M1109 $195.95 

M1409 $299.95 

M1509 $335.95 

M1709 $475.95 

Twinwriler 6 Dot & Daisy . $899.95 

M1724L $599.95 

HR20 $339.95 

Hn40 $569.95 

HR60 $709 95 



1 00 cps draft 
20 cps NLQ 



1091 Model 

• 1 92 cps Draft 

• 32 cps NLQ 



$129 



95. 



$199 



95 



PRINTERS 



SEIKOSHA 

SP IBOAi $129.95 

SP1B0VC $129.95 

SP lOOOVC $139.95 

SP lOOOAP $169.95 

SP 1200VC $155.95 

SP 1200Ai $165.96 

SP 1200AS RS232 $166.95 

SLBOAi $299.95 

MPISOOAi $269.95 

MP530OAi $399.95 

MP5420FA $995.95 

SP Series Ribbon $7.95 

SK3000 Ai $339.96 

SK3005 Ai $419.95 

SPB 10 $CALL 

SL 130Ai $599.95 



Toshiba 

321SL $489.95 

341 SL $659 95 

P351 Model II $899 95 

351 SX 400 cps $1019.95 



EPSON 

LX800 $199.95 

FX86E $279.95 

FX286E $424.95 

EX800 $399.95 

LQ500 $339 95 

LQ 1 000 w/Tiaclor $549.95 

LQ2500 $819.95 

GQ3500 $LOW 

LQ850 $525.95 

LQ1050 $715.95 

OKIDATA 

Okimale 20 $119 

Okimale 20w;car1 $179.95 

120 $189.95 

180 $219.95 

182 $209.95 

1821 $225.95 

183 $249.95 

192 I $339.95 

193 I $449.95 

292 w/inlertace $449.95 

293 w/inleriace $585.95 

294 w/inlerfaco $819.95 

393 $955.95 



Panasonic 

10801 Model II $179.95 

10911 Model II $199.95 

10921 $319.95 

1592 $409.95 

1595 $459.95 

3131 $299.95 

3151 $479.95 

KXP 4450 Laser $CALL 

1524 24 Pin $559.95 

Fax Partner $589.95 



^CITIZEN 



120 D SI 69.95 

180 D S189.95 

MSP-10 $259.95 

MSP-40 S309.95 

MSP-15 S349.95 

MSP-50 .S399.95 

MSP-45 S459.95 

MSP-55 S539.95 

Premiere 35 S499.95 

Tribute 224 S649.95 

Tribute 124 $469.95 



AATARI 

520 ST Computer 

• Built-in 
Drive 

• Thomson 
4120 
Monitor 

$729'= 
AATARI 

1040 ST 
Color System 



iTHOMSON 



$955 



95 



O^ 



AATARI HARDWARE 

520 ST FM Mono $675.95 

520 ST FM Color $729.95 

1040 ST Mono $739.95 

1040 ST Color $955.95 

130XE Computer $135.95 

SX551 Drive $174.95 

SF 314 Disk Drive $219.95 

Indus GT Atari Drive $169.95 

SHD 204 20 MEG Drive $579.95 

XM301 Modem $42.95 

SX212 Modem $89.95 

GTS 100 (3.5" DSDD ST) $196.95 

GTS 1000 5V- DSdD ST $CALL 



Attention Educational 
Institutions: 

If you are not currently 

using our educational 

service program, please 

call our representatives 

for details. 



520 ST-FM AATARr 

Monochrome 
System 



$675 

Internal 

drive 

Included 



95 



ri 



AATARI 

1040 

Monochrome 

System 



_r*&tt.: 



$789 



95 





NALOG Nan is 
the editor of 
the famous ANALOG 
Computing Nagazine, 
the premier magazine 
for Atari users. His lob 
is to assemble the pages 
of each issue, which he 
does by running over 
the pages, causing them 
to fail to the level below 
in the girder-like offices 
of ANALOG Nag. You 
must help Nan do his job 
of assembling nine is- 
sues of ANALOG by guid- 
ing his footsteps with 
your Joystick plugged 
into port I. He can climb 
up and down ladders, 
and falling down the 
holes left by runover 
pages doesn't hurt a 
bit. . .Nan is tough. 
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Of course, there is far more to it than 
just happily showing up at the office ev- 
ery day. The other personal computers 
are getting more and more nervous vith 
the success of ANALOG and Atari, and 
they have decided the way to finish Atari 
for good is to prevent ANALOG from 
reaching its loyal readers. So one day, 
they showed up at ANALOG'S offices 
and began chasing poor Man. Their 
touch deprives Man of one of his five 
lives. But Man is not defenseless. To 
combat the evils of the enemy personal 
computers, Man carries five bombs. 
Pressing the button on your joystick sets 
off a bomb, and any enemy who touches 
a bomb is instantly frozen and can do 
no further harm until he unfreezes. 

There are nine different levels to 
ANALOG Man, and everything gets 
faster after you complete the first nine 
screens. Getting through all nine 
screens earns you two additional bombs, 
up to a maximum of ten. Oh, yes— the 
enemies stay frozen a shorter length of 
time in the upper levels ... So get busy, 
loyal readers of ANALOG, and help 
ANALOG Man get the issues of your 
favorite magazine out on time. 
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ANALOG Man is too long to compile 
from memory. Punch it in exactly as 
listed (using DrCHECK IN ACTION! 
from issue 44 to check your typing), 
then save it to disk (using the SHIFT- 
CNTRL-W command). Go to the moni- 
tor (SHIFT-CNTRL-M) and reboot the 
system to clear memory (B). Reenter 
the monitor and type: C "D:FILE- 
NAME."When the compile is done, 
simply type R to run the program. 



I SL l-C: ^ — SL p> St. i— t 

Some of the more interesting proce- 
dures are listed below, with a word of 
explanation on how they work. Much 
can be learned from studying the struc- 
tured Action! listing. 

PROG DOWNLOAD: The screens for 
this game are constructed using a rede- 
fined character set in Antic mode 4, the 
multicolored character mode. This 
procedure steps back the top of 
memory and moves the character set 
from ROM into RAM so it can be 
modified. 

PROG DLINT: ANALOG Man uses a 
display list interrupt (DLI) to get extra 
color on the screen. The numbers with 
dollar signs in front of them are hex 
codes for the machine language equiva- 
lent of the commands to put the con- 
tents of the accumulator, X and Y 
registers on the stack and pop them 
back off. The balance of this procedure 
is simply to wait for the horizontal 
synch, then change the contents of the 
text window color register and the in- 
tensity of the text in the window. 

PROG SGORELINE: Setting up the 
DLI defined in DLINT places the ad- 
dress of DLINT into the card variable 
Vdslst, which resides at locations 512 
and 513. Whenever a DLI is required, 
the Atari checks the contents of these 
locations to find the address of the rou- 
tine to execute for the DLI. It will now 
use Dlint. Byte array Dlist was "point- 
ed" to the same place in memory as the 
display Ust, so changing one of the ele- 
ments of Dlist will change the display 
list, thus calling the DLI at the required 
line. The DLI is actually turned on by 
placing hex $G0 into location NMIEN 
($D40E). 

PROG MOVEIT: Byte array Adres is 
pointed to the address defined by the 
PmAdr function, offset by the y coor- 
dinate of the Player in question. Then 
num bytes of array Shape are moved to 
this address using the built-in MOVEB- 



LOGK command. Finally, the x coor- 
dinate of the Player is set by changing 
one of the elements of byte array 
PmHpos, which has been defined to re- 
side at the memory locations that the 
Atari uses to set the horizontal locations 
of the Players ($D000). 

PROG TESTGOL: This procedure 
tests for coUisions between Players, for 
use in PROG PMHIT. Testing for coUi- 
sions in a language as fast as Action! can 
be a little tricky. Whenever it becomes 
necessary to look for a collision between 
two Players, you must wait for the en- 
tire screen to be drawn, so that colli- 
sions will be registered. This is the pur- 
pose of waiting for Vcount AND 728. 
The problem is that if you need to check 
for collisions several times in the course 
of one program loop, as you do in ANA- 
LOG Man, the waiting for the complete 
screen to be drawn before checking for 
the collision will considerably slow down 
the game. The solution is to check the 
hardware registers for colUsions only 
once in each loop, store the results of 
the check in temporary holding 
registers, and use the temporary 
registers for all further work. TEST- 
GOL uses this technique. Of course, you 
must clear the temporary registers be- 
fore each collision check, and clear the 
hardware registers (PmHitGlr = 1) after 
each check. 

PROG TITLE: The rolling colors of 
the title screen are created by storing 
colors directly into the hardware color 
registers. The color to store is based on 
the timer located at memory register 
20, which "ticks" every 1/60 of a se- 
cond. Since 60 times per second is too 
fast to change the color (it doesn't look 
very nice), the number in the timer is 
divided by 4 (RSH 2). The result is then 
added to the scan line counter, Vcount, 
so that each scan line is a different 
color, and the rolling rainbow effect is 
based on the timer. By subtracting one 
of the two numbers generated by the 
above method from 128, the colors of 
that register appear to roll backward. 
By avoiding the use of the DLI, you can 
have multiple colors within each 
letter — something most people wUl tell 
you can't be done on the Atari. 

PROG GR4INIT: This procedure sets 
up the necessary information for use in 
the custom PLOT and LOGATE rou- 
tines to come later. The elements of 
card array Linept are equated to the ad- 
dress of the beginning of each screen 
line. Then byte array Dlist is pointed to 
the Display list by equating Dlist to 
Sdlst, which is a card variable residing 
It locations 560 and 561, the registers 
which contain the address of the display 



list. Finally, the display list is modified 
to Antic mode 4 by changing the ele- 
ments of Dlist. 

PROG PL0T4: This is a custom 
PLOT routine, far faster than the one 
built into the Action! cartridge. Byte ar- 
ray Line is equated to an element of 
card array Linept. Then an element of 
Line is modified to place the required 
character on the screen. LOGATE4 
works similarly, except the element of 
Line is simply retiu-ned instead of be- 
ing modified. 

PROG SQUASHED: This procedure 
checks to see if a falling level has hit one 
of the enemies. Note the conversion 
from Playfield coordinates to Player 
coordinates in order to do this check. 

PROG NOGHASE: This procedure 
and PROG CHASE control the move- 
ment of the enemy Players. If the dis- 
tance between ANALOG Man and his 
enemies is too great, they will not "see" 
him, and will move randomly. However, 
if they get close, they will begin to fol- 
low him, and the only escape may be to 
use a bomb. The distance at which the 
enemies will begin to follow Man gets 
greater as you get to higher levels. 

PROC VECTOR: This procedure 
doesn't seem to do anything, since it 
contains nothing but a RETURN. In 
fact, it is very important in determining 
what level will appear on the screen. 
The problem that I faced was that if you 
get killed in the middle of a game (high- 
ly hkely!), it is very unwieldy to get back 
to level 1 if you decide to play again. 

In fact, the whole coding scheme was 
unwieldy, looking something like this: 
Screenl (), Play (), Screen2 (), Play 
0, etc. . .Instead, the address of each 
procedure to draw a screen (Screenl, 
etc.) is stored into the elements of card 
array Sc in the last procedure of the 
program. Main. Then, Vector is simply 
equated to the appropriate element of 
Sc, so now Vector points to the proce- 
dure to draw a screen instead of to the 
dummy procedure that does nothing. 
Calling Vector now executes the proce- 
dure to draw a screen. 

S u r-n nn ^r— y 

ANALOG Man is a rather long pro- 
gram, but it would have been con- 
siderably longer and more confusing if 
the powerful capabilities to relocate ar- 
rays and even procedures had not been 
used. I think you can see that Action! 
is one of the most powerful languages 
ever developed for any home computer. 
I recommend that if you are serious 
about your Atari, you support the de- 
velopers of Action! and purchase a copy 
of this outstanding language. 
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CHECKSUM DATA 




[56 


57 


F8 


33 


3E 


56 


EC 


CC 


B7 


CD 


B7 


6D 


FA 


21 


D4 


D9 


2F 


D7 


9A 


8B 


CB 


11 


75 


44 


D9 


E9 


43 


C6 


BB 


EB 


DO 


11 


CB 


34 


7F 


69 


98 


7D 


C4 


05 


BD 


2A 


95 


C7 


8A 


67 


19 


Fl 


IC 


79 


6F 


6C 


BF 


C8 


9D 


92 


44 


BC 


CA 


83 


95 


B9 


61 


OB 


ec 


40 


E8 


FA 


15 


63 


CI 


43 


57 


BE 


36 


37 


69 


DO 


9F 


D6 


BD 


22 


31 


78 


06 


33 


3C 


2A 


E4 


2D 


8D 


6C 


09 


C9 


73 


1 



MODULE 

BYTE ChrBase=756,BKgrnd=710,X,Y, 

Fate=53770,Lewel=[5],cursln=752, 

StiCkO = 632,Ps,LOUd=i:0] ,IndX=[01, 

Sndl=$D208, 5nd2=$D20F, Freq= [1693 , 

Nsync=$D40A,Colbk=$D018, 

NMien=$D40E,Consol=53279, 

Col intS=$D017, XO, YO, Ft= [2003 , 

Ly=I5] ,Ld=C0] ,Ld2=[e: , Atrt=77, 

PMHitClr=SD01E,DHactl=S22F, 

Gractl=$D0iD,PMBase=SD407, 

Priority=$26F,ucount=54283, 

Loudl=[0] , Toner C83 ,Flg=Cll , 
Mstatus= CO] , Pep= C53 , My= C03 

CARD 5crn=88,RaM5et,HiMeM=$2E5, 
5core=C03 ,5dlst=560, 
gdsist=5i2,Max=i:o], 
PM_BaseAdr,AdreSjAdresB 

INT Xdir,Ydir 

INT ARRAY Pxdr=IO 01 , 
Pydr=[0 03 

CARD ARRAY Linept t24J , SC tlOJ 



BYTE ARRAY Charset, Dl ist, 5tacky t9J , 
PMHpos (8) =SD000, Stack C91 , 
StackXt7J=[0 9 26 9 26 9 263, 
PX(4) = [0 0],PyC4} = C0 03, 
BegxC4}=[e 64 124 1843, 
Begy(41=[e 18 90 423 , 
PKL_WidthC5J=$DO08,Plptr, 
PM_MisnaskC4}=t$FC SF3 SCF $3F3 , 
PCOlr C4) =704 , PMtopf (8J =SD000, 
PMtopC8)=$D008,PfCOl C8I,PC0l C8), 

ChMpKOJ^Ce 8 28 42 54 28 73 127 

28 20 22 48 e e 03, 

ChMp2(0}=tO 8 e 8 28 42 54 28 8 

127 93 28 52 6 e 8 8 83, 
IbM(e)=Ce 8 8 88 84 88 84 88 68 
108 84 68 03 , 
CMdore(01=[e 224 176 151 134 

128 128 134 151 176 224 03 , 
AppletO}=[0 8 48 8 8 62 127 127 
127 127 62 28 8 03 , 
Estat(4}, 

MS11C0J=C178 85 170 85 170 85 170 85 
170 85 170 85 170 85 170 85 170 853 , 
Msl2C0]=[85 170 85 170 85 170 85 170 
85 170 85 178 85 170 85 170 85 1703, 
ShapeTabletO)=C 

85 17 17 68 68 17 17 85;1-GIRDER 
160 178 160 160 160 160 170 160; 
10 170 10 10 10 10 170 10j3 RT LDR 
170 51 85 51 170 51 85 51; 4 LVl 
170 85 170 85;5 LVl CRUNCH 
85 51 170 51 85 51 170 51;6 LU2 
85 170 85 170;7 LV2 CRUNCH 
255 34 85 34 255 34 85 34; 8 LU3 
e 255 85 255 85; 9 LU3 CRUNCH 
165 51 90 51 165 51 90 51;10 LU4 
165 90 165 90;11 LU4 CRUNCH 
190 235 215 195 195 215 235 190; 12 
235 130 150 170 170 ISO 130 235;13 
3 

PROC PauseCJ ITEST 

MHILE CDnSDl<>6 DO OD RETURN 

PROC Download C) 

;Step back HiMen and Move the 

;character set into RAM 

RaMSet= CHiMe«-S400J &SFCOO; IK boundary 

ChrBase=Ran5et RSH 8 

HiMeM=RanSet 

MOVeBlOCkCRaMSet, 57344, 10241 

Charset=RanSet 
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RETURN 

PROC ModifyO 

;Modify the RAM Character set 

CARD XX 

FDR XX=e TO 183 

DO 

Charset (xx+8) =ShapeTable (xxl 
OD 
RETURN 

PROC PngraphicsO 
ZeroCPMHpos,8} 
ZeroCPH_Midth,5} 
DHactl=$2E PcolrC0)=52 
PM-BaseAdr= CHiMeM-$40e) &$FC8e 
PMBase=PH_BaseAdr RSH 8 
HiMeM=PH_BaseAdr+384 
Priority==&SC8Xl Gractl=3 
RETURN 

CARD FUNC PHAdrCBYTE n) 

IF n>=4 THEN n=8 ELSE n==+l FI 

RETURN CPM_BaseAdr+384+ CnK$881 ) 

PROC PMClearCBVTE nl 

CARD Ctr 

BYTE ARRAY playadr 

pla!/adr=PHAdrCnl 

IF n<4 THEN Zero(playadr,$88) 

ELSE n==-4 
FOR Ctr=e TO S88-1 

DO playadrCctr}==&PH_NiSMaskCn) OD 

FI 

RETURN 

PROC DlintC) 

;the display list interrupt routine 

[$48 $8A $48 $98 $481 

HsbPnc=l C0lbk=58 C0lintS=12 

[$68 $A8 $68 $AA $68 $481 

PROC ScoreLined 

J set up the dli 

Udslst=Dlint DliStC27J=132 NMien=$C8 

RETURN 

PROC MoueitCBYTE ARRAY Shape BYTE 

Which, nuM, XX, !/!/} 
Adres=PMAdrCwhichl+y!^ 
MoveBlockCAdres, shape, nuM} 
PMHpos(which)=xx 
RETURN 

PROC PutnanC] 

;Clear PM space/ put Players onscreen 

BYTE Ip 

FOR lp=8 TO 3 

DO 

EstatClp]=8 PMClearClp} 
OD HstatUS=:8 Ld=8 Ld2=e SndRst () 
K8=76 Y8=66 Moveit CChnpl, 8, 18, KO, Y8} 
FOR lp=l TO 3 
DO 
Px(lp}=BegxClp} PyClplzBegydpi 
IF iprl THEN 

MoveitCIbn, lp,l8,PxClp},Pycip)} 

ELSEIF lp=2 THEN 

MoveitCCMdore,Ip,18,PxClp},Pycip)l 

Hoveit(Apple,lp,l8,PxClp) ,Py(ipi] 

OD 
RETURN 

PROC TestcolC) 

BYTE 11 

FOR 11=8 TO 7 DO 

PfC0lCll}=8 PC0l(in=8 OD 

DO UNTIL UC0Unt&128 OD 

FOR 11=8 TO 7 DO 

pfcoiciii=PMtopf cm 

PCOl (ll}=PMtop(ll} OD 

PMHitClr=l 

RETURN 

BYTE FUNC PMHitCBYTE n,cnUM) 



IF n<4 THEN n==+4 ELSE n==-4 FI 
IF CnUM<4 THEN 

RETURNCCPcolCn) RSH cnUMl&l) 

ELSE cnUM==&3 

RETURN CCPf col (nJ RSH cnUMlSlJ 
FI RETURN CBJ 

PROC HsldropO 

;put Pepper on screen 

BYTE tri9=644,lp,tt=[e] 
IF Ld>l THEN Ld==-2 

S0UndC2.Ld LSH 3,18,Ld) ELSEIF 
MstatUS>e THEN 
Sound C2,HstatUS LSH 2,18,4) 
FI 

IF MstatUS>8 THEN tt=l-tt MstatUS==+l 
IF tt=8 THEN 

HoveB10Ck(AdresB,MSl2,18} ELSE 
MoveBlockCAdresB,MsIl,18) 
FI 

IF Hstatus=58 THEN Zero CAdresB, 181 
Hstatus=e Sound C2, 8, 8, 8) 

FI 

IF tri9=l OR Pep=e OR Nstatus>8 

THEN RETURN 
FI 

Mstatus=l 
FOR lp=e TO 3 

DO PMHposClp+4)=Xe-3+(lp LSH 2) OD 
My=YO 

AdresB=PHAdr C4l +Hy 
MoveBlockCAdresB,Msll,l8) Ld=12 
Pep==-l 

PositionC36,23) PrintC" "J 
PositionC36,23J PrintBtPep) 
RETURN 

PROC GotbUHpedC} 
BYTE lq,lql 

IF Ld2>8 THEN Ld2==-1 FI 
Sound(3,Ld2 LSH 3,8,Ld2) 
FOR lq=8 TO 3 DO FOR lql=l TO 3 DO 
IF PnHit(lq+4,lql)=l AND EStatClql)=8 
THEN Ld2=14 EstatClql}=l Score==+5 
PnHposClq'l-4)=8 
FI OD OD 

FOR lq=l TO 3 DO 
IF EstatClql>e THEN Estat f IqJ ==+1 

PC0lr(lq)=C(RandC14)+l) LSH 4}+18 
FI 

IF EstattlqJ=Ft THEN EstatClq}=8 
PNClear Clq) 

PC0lrClq)=((Rand(141+l) LSH 4)+ie 
Pxtlq)=BegxClq) Py(lq}=BegyClq) 
IF lq=l THEM 
HOVeitCIbM, lq,18,PX(lq},PyClql] 
ELSEIF lq=2 THEM 

Moveit(CMdore,lq,18,PxClq},Py(lq)) 
ELSE 
MOVei t (Apple, Iq, 18, PxClql,Py(lq}) 

FI OD RETURN 

PROC Titled 

BYTE C0lpf8=53278,C0lpfl=53271, 
C0lpf3=53273,rtCl0Ck=28 

GraphiCSdO} 

Position(5,4) PrintD<6, "ANALOG MAN") 

POSition(8,5) PrintDt6,"BY") 

Position C3, 7) 

PrintD(6,"david plotkin") 

Position 13,9) 

PrintD(6,"|jIiqro SXBS") 

NHILE ConsolOS """*■ 

DO colpf3=Fate Atrt=8 Hsync=e 
colpfe=128-Ucount+rtclock RSH 2 
colpfl=ucount+rtclock RSH 2 

OD 

RETURN 

PROC Gr4Init(] 

;Set up the address of each screen 

; line, initialize and set up Gr. 4 

CARD XX 

BYTE Clrl=7e9 

Graphicste) Cursln=l PrintC" ") 
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FOR XX=e TO 23 

DO LineptCxx)=5crn+C4e»xxJ 00 

DliSt=SdlSt DliSt(3}=68 

FOR XX=6 TO 27 

DO DliStCXX)=4 OD Clrl=68 

RETURN 

PROC Update C) 

;print data on the text line 
Position(e,23l PrintC'Score: "J 
PositionC7,23J PrintCCScoreJ 
PositionCl3,23) Printf'Lives; "J 
Position(2e,23} PrintBCLu) 
Position(22,23} Printf'Hi! "J 
Position(26,231 PrintCCMaxl 
PositionC32,23) PrintC'SB: ■') 
PositionC36,23) Printt" '■) 
PositionC36,23J PrintBCPep) 
RETURN 

PROC P10t4CBYTE X,y,Ch) 
;Plot a char at location x,y 
BYTE ARRAY line 
line=Linept(v) lineCx)=ch 
RETURN 

BYTE FUNC Locate4CBYTE X,yJ 

;Returns the value of the char at x,y 

BYTE ARRAY line 

line=LineptCy} 

RETURNClineCx}] 

PROC HlineCBYTE Xl,yl,x2,ChJ 

;draw a line of ch characters froM 

;xl,yl to x2,yl thorizontal line) 

BYTE ARRAY line 

BYTE ip 

line=LineptCyl} lp=xl 

DO lineClpl=Ch lp==+l UNTIL lp=x2+l OD 

RETURN 

INT FUNC HStiCkCBYTE port) 

BYTE ARRAY ports C4)=S278 

INT ARRAY value(4}=C0 1 SFFFF 03 

port==&3 

RETURN (value tCports (port) &$C) R5H 2)) 

INT FUNC U5tiCk(BYTE port) 

BYTE ARRAY ports (4)=$278 

INT ARRAY value(4)=[e 1 SFFFF 03 

port==&3 

RETURN (value (ports (port) &3)) 

PROC EndGaneO 

;gaMe over 

BYTE trig=644,wsync=SD40A,rtclock=2B, 

l«=53271,VC0Unt=54283 
SndRstO Bkgrnd = Dlist(18)=2 
IF Score>Max THEN Max=Score FI 
Put(125) Updateo 
Positiont7,5) „.^„ 

PrintC'AU DONE Press [3031") 
DO vcount=e lM=vcount+rtclock R5H 2 

Atrt=e UNTIL trig=9 
OD 

Bkgrnd=148 DliSt(ie)=4 Put(125) 
Lv=5 Pep=5 lndx=8 Level=5 Ft=200 
Score=0 Updateo PHHitClr=e 
RETURN 

PROC Meltdown () 

BYTE lp,lq,tiMe=28 

BYTE ARRAY Melt 

SndRstO Melt=PMAdr(0)+Y8+4 

FOR lp=0 TO 30 

DO lq=Rand(10) Melt(lq)=Fate 

Sound(0,Fate,8,8) 

tine=0 DO UNTIL tiMe=3 OD 
OD 

FOR 1P=0 TO 9 
DO Melt(lp)=0 Sound(0, lp»10,10,8) 

tiMe=0 DO UNTIL tiMe=2 OD 
OD 5ound(0,0,0,8) 
RETURN 

PROC OuchO 
BYTE lc,ld 



IF PC0l(4)=e THEN RETURN FI 

FOR 1C=1 TO 3 

DO IF PMHit(8,lC)=l AND EStat{lC)>0 

THEN RETURN FI 
OD 

MeltdownO 

FOR lc=0 TO 7 DO PnClear(lc) OD 
Lv==-1 Position(20,23) PrintB(Lv) 
IF Lv=0 THEN EndGaneO ELSE Putnan O 
PMHitClr=0 FI RETURN 

PROC InitLevO 

;Set initial stack values, call Putnan 

BYTE ip 

FOR lp=l TO 8 DO Stack(lp)=0 OD 

Stacky(l)=4 5tacky(2)=4 Stacky(3)=10 

Stacky(4)=10 5tacky(5)=16 5tacky(6)=16 

Stacky(7)=8 stacky(8)=0 Putnan O 

RETURN 

PROC GirdersO 

;draw the nain four lines of girders 

;clear screen and init new level 

SndRstO Zero(Scrn,960) Loud=0 

HI ine (2, 22, 37,1) HI ine (2, 16, 37, 1) 

Hline(2,10,37,l) Hline(2,4,37,l) 

Hline(9,4,13,4) Hline(9,10,13,6) 

HI ine (9, 16, 13, 8) HI ine (26, 4, 30, 4) 

HI ine (26, 10, 30, 6) HI ine (26, 16, 30, 8) 

initLevO 

RETURN 

PROC ScreenlC) 
;draw screen 1 
BYTE ip 

GirdersO ;now the ladders 

FOR lp=4 TO 21 

DO Plot4(2,lp,2) P10t4(3,lp,3) 
P10t4(19,lp,2) PlOt4(20,lp,3) 
P10t4(36,lp,2) P10t4(37,lp,3) 

OD POSit ion(15,23) 

Print fUM- HiliHiT-ailMa •■) 

RETURN 

PROC Screen2 

;draw screen 2 

BYTE ip 

GirdersO FOR lp=4 TO 21 

DO P10t4(19,lp,2) Plot4(20,lp,3) OD 

FOR lp=10 TO 15 

DO P10t4(2,lp,2) PlDt4(3,lp,3) OD 

Position (15, 23) 

Print (" l!IWJ'JJHJJKT-»t:g!!MiI.4cJ ") 
RETURN 



PROC Screens O 

;draw screen 3 

BYTE ip 

GirdersO FOR lp = 4 TO 21 

DO P10t4(19,lp,2) Plot4(20,lp,3) OD 

FOR lp=4 TO 9 

DO P10t4(2,lp,2) P10t4(3,lp,3] OD 

FOR lp=16 TO 21 

DO P10t4(36,lp,2) P10t4(37,lp,3) OD 

Position (15, 23) 

RETURN 

PROC Screen40 

;draw screen 4 

BYTE ip 

GirdersO Hline(16,4,23,0] 

Hline(16,16,23,0) FOR lp=4 TO 21 

DO P10t4(14,lp,2) P10t4(15,lp,3) 

P10t4(24,lp,2} P10t4(25,lp,3] 
OD Posit ion (15, 23) 
Print f UfJAJBTTlFrE ") 

RETURN 

PROC Screen5 

;draw screen 5 

BYTE ip 

GirdersO Hline(16,ie,23,0) 

Hline(16,16,23,0) FOR lp=4 TO 21 

DO Plot4(19, lp,2) Plot4(20,lp,3} OD 

FOR lp=4 TO 9 

DO P10t4(14,lp,2> PlDt4(15,lp,3) 
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P10t4C24,lp,21 P10t4t25,lp,3) 
OD FOR lp=15 TO 21 
DO P10t4C14,Ip,2} PIOt4C15,lp,31 

P10t4(24,ip,2) PlDt4(25,lp,3) 
OD PQSi tiontl5,25i 

Print C"i mt1,r.B>l.rTi1 "J 

RETURN 

PROC Screen6C} 

;draw screen 6 

BYTE ip 

Girderst} HlineCie, 4^23,0) 

Hlineci6,ie,23,ei Hiineci6,ie,23,0} 

FOR lp=4 TO 21 

DO P10t4C14,lp,21 Pl0t4C15,lp,3J 

P10t4(24,lp,2} Plot4C25,lp,3] 
OD PQSit ionC15,23 i 
Print C" f;iiM!r.flJ.-J "3 

RETURN 

PROC Screen? C) 

;draw screen 7 

BYTE ip 

GirdersC) HlineC16,ie,23,e} 

Hline(16,16,23,8] FOR lp=4 TO 21 

DO P10t4C19,lp,21 Pl0t4C28,lp,3] OD 

P0SitiDnC15,23) 

Print c 

RETURN 



Time at the top 



PROC Screens CJ 

;draw screen 8 

BYTE ip 

GirdersCl 

HlineC16,ie,23,8} HI ine (16, 16, 23, 8) 

FOR lp=4 TO 21 

DO PlCt4(2,lp,2I P10t4(3,lp,3J 

Pl0t4C36,lp,2) PIOt4C37,lp,3) 
OD Pos i "t i on C15, 23? 

RETURN 

PROC Screen? (] 

;draw screen 9 

BYTE ip 

GirdersM HIine(16,4,23,ei 

HlineC16,ie,23,ei HlineC16,16,23,ei 

FOR lp=4 TO 21 

DO P10t4(2,lp,2J P10t4C3,lp,3) 

PIOt4(36,lp,2) P10t4t37,lp,3J 
OD P°S^"'^ ip"tl5,231 

RETURN 

PROC FallingCBVTE tt) 
;keep track of level status 
BYTE ip 
IF tt=4 THEN 

IF X0<128 THEN Stack C1J==+1 ELSE 
Stack C2)==+l RETURN 

FI 
FI 
IF tt=6 THEN 

IF Xe<12e THEN StackC3) ==+1 ELSE 
Stackt4J==+l RETURN 

FI 
FI 
IF tt=8 THEN 

IF Xe<12e THEN Stack C5J==+1 ELSE 
Stack (6) ==+1 RETURN 

FI 
FI 
RETURN 

PROC Squashed CBYTE Wh] 

BYTE lk,XX,!^y 

XX=(StackX(whl LSH 2)+48 

!/!>l=(Stacky(wh} LSH 2J +16-14 

FOR lk=l TO 3 

DO IF Px(lkJ>=xx-8 AND PxClkJ<=XX+16 



ftND P!/(lk)=yy THEN Estat(lk}=l 
Score==+5 Ld=14 
FI 
OD RETURN 

RETURN 

PROC DropLeuelo 

;Make levels fall, keep track of y pos 
BYTE lp,iew 

BYTE ftRRftY Wh (71 = [8 5 5 7 7 9 93 
FOR lp=l TO 6 

DO IF Stack(lp]>=5 THEN Stack (IpJ ==+1 
FI 
IF Stack(lpj>=7 THEN 
Hline(Stackx(lp},stacky(lp}, 

Stackx(lp)+4,8} Score==+l 
Stacky(lpj==+i lev=Stacky(lp} 
IF ley=18 OR lev=16 THEN Stack(lpl=e 
Hline(Stackx(lp),lev,stackx(lp)+4, 

wh(lp)-lJ 
IF Stacky(lp+2}=lev THEN 

Stack(lp+2J=7 Stacky(lp+2}=lev+l 
Hline(Stackx(lP'>'2} , lev+l, 
Stackx(lp+2)+4,wh(lp+21) 
FI ELSE 

Hline(Stackx(lp),lev,Stackx(lp}+4, 

wh(lp)} 
IF leu=22 THEN Stack(lp]=8 FI 
FI 
IF lev=18 OR lev=16 OR leu=22 THEN 

Squasheddp} 
FI 
FI OD 
RETURN 

PROC Check () 

J Look ahead-see whats there and Move 
BYTE Xtl,xt2,ytl,yt2,tl,t2,t3,t4 
BYTE ARRAY pstn 

Xtl=(X8-48) RSH 2 ytl= (Ye-16+14) RSH 2 

tl=Locate4 (xtl, ytlJ 

t2=Locate4 (xtl+1, ytlJ 

IF tl=8 AND t2=8 THEN; falling 

Ye==-i-4 Moveit(pstn,e,i8,xe,Ye} 

TDne=ie Loud=l8 

RETURN 
FI 
IF StiCk8=15 THEN RETURN ELSE 

Tone=8 Flg=l-Flg 

IF Flg=8 THEN pstn=ChMpl ELSE 
pstn=ChMp2 

FI 
FI 
IF Stick8=7 THEN;MOve right 

tl=Locate4(xtl+2,ytl) LDUd=6 

IF X8<192 THEN Xe==+4 FI 

Moveit(pstn,e,l8,xe,Ye) 

IF (tl=4 8R tl=6 OR tl=8J THEN 
Plot4(xtl+2,ytl,tl+lJ Falling (til 

FI 

IF Stick8=ll THEN;Move left 

tl=Locate4(xtl-l,ytll Loud=6 

IF X0>56 THEN X0==-4 FI 

Moveit(pstn,e,18,Xe,Yei 

IF (tl=4 OR tl=6 OR tl=81 THEN 

Plot4 (xtl-l, ytl, tl+11 Fal 1 ing (til 

FI 

IF Sticke=14 THEN;Move up 
tl=Locate4(xtl,ytll 
t2=Locate4 (xtl+1, ytll 
t3=Locate4 (xtl, ytl-11 
t4=Locate4 (xtl+1, ytl-ll 
IF ((tl=2 AND t2=31 OR 
(t3=2 AND t4=311 
THEN Ye==-4 L0Ud=6 
Moveit(pstn,e,18,X8,Yei 
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FI 

IF StiCke=13 THEHjMOVe down 

tl=Locate4txtl,ytlJ 

t2=Locate4txtl+l,ytlJ 

IF ttl=2 AND t2=3) THEM Ye==+4 
MoueitCpstn,e,18,Xe,Yei LDUd=6 

FI 
FI 
RETURN 

PROC Noised 
;the sound effects 
IF LOUd>e THEN LOUd==-l 
Sound CI, Y8, Tone, LoudJ 
FI 
RETURN 

PROC NoChasetBYTE dl , dr, du, dd, Ip) 

BYTE sel 

IF CdU=e AND dd=ei THEN 

IF CPXdrClpXe AND dl=l} THEN RETURN 
ELSEIF CPXdrClp)>e AND dr=l) THEN 
RETURN 

FI 
FI 
IF Cdl=e AND dr=e} THEN 

IF (P!/dr(lp}<8 AND du=l} THEN RETURN 
ELSEIF (PydrClp}>8 AND dd=l} THEN 
RETURN 

FI 
FI sel=RandC4) 
IF Csel=8 AND dl=l} THEN 

PxdrClpJ=-4 P!;drClpl=8 ELSEIF 

(sel=l AND dr=l} THEN 

PxdrClp)=4 PydrClp}=e ELSEIF 

Csel=2 AND du=l} THEN 

Pxdr(lp}=8 PydrClpJ=-4 ELSEIF 

(sel=3 AND dd=l} THEN 

PXdrtlp)=8 Pydrtlp)=4 ELSE 

PxdrClp}=8 PydrClp}=8 
FI 
RETURN 

PROC Chased 

;the creatures Move 

BYTE Ip,xtl,xt2,ytl,yt2,tl,t2,t3,t4, 

dir,dl,dr,du,dd 
INT delx,dely,dx,dy 
FOR lp=l TO 3; for each chaser 
DO delx=KB-Pxtlp) dely=Y8-PytlpJ 

dx=delx dy=dely 

IF delx<e THEN delx=-delx FI 

IF dely<8 THEM dely=-dely FI 

delx==RSH 2 dely==RSH 2 

Xtl=tPxClp3-48J RSH 2 

ytl=CPy(lpJ-16+14J RSH 2 

tl=Locate4txtl,ytl) 

t2=Locate4fxtl+l,ytl) 

t3=Locate4 Cxtl, ytl-iJ 

t4=Locate4txtl+l,ytl-lJ 

dir=8 dl=e dr=8 du=8 dd=8 

IF Ctl=2 AND t2=3 AND PyClpJ<91) 
THEN dd=l 

FI 

IF {tti=2 AND t2=3> OR Ct3=2 AND t4=3 
J) 

THEN du=l 

FI 

IF Cytl=4 OR ytl=18 OR ytl=16 OR 
yti=22J THEM dir=i 

IF Cdir=l AMD PX(lp)>56J THEM dl=l FI 
IF (dir=l AND PXtlpJ<192J 

THEN dr=l FI 
IF Cdely<=Level AND delx<=LeuelJ THEN 
IF tdx<8 AND dl=l) THEN 
PxdrClpJ=-4 PydrClpJ=8 
ELSEIF tdX>8 AND dr=l) THEN 
PxdrtlpJ=4 PydrtlpJ=8 
ELSEIF Cdy<8 AMD dU=iJ THEN 
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PxdrClp)=8 PydrClpJ=-4 
ELSEIF Cdy>8 AND dd=lJ THEM 
PxdrClpI=8 PydrtlpJ=4 
ELSE PXdrClp)=8 PydrClpJ=e 
FI ELSE M0ChaseCdl,dr,dU,dd,lp} 
FI 
IF EstatClpJ<>8 THEM PXdrClpJ=8 

PydrClpl=8;killed! 
FI 
IF tl=8 AND t2=8 THEM Pxdr(lpJ=8 

Pydrtlp)=4 
FI; falling! 

PxtlpJ==+Pxdr£lpJ PyClpJ==+Pydr(lpJ 
IF lp=l THEN 
MoveittlbM,lp,18,PxClp),Pytlp)J 
ELSEIF lp=2 THEN 

MoweitCCMdore,lp,18,PxClp3,PyClp)) 
ELSE 

MoveittApple,lp,18,PxtlpJ,PytlpJJ 
FI 
OD 
RETURN 

PROC PlayO 

;the play gane loop 

BYTE lp,tiMe=28 

DO CheckCl ChaseCl MsldroptJ Atrt=8 
Position(7,23) PrintctScoreJ 
FOR lp=8 TO 2 

DO Noised tiMe=8 DO UNTIL tiMe=l OD 
OD Noise CI TestcolCJ GotbUHpedCl 
OUChCJ IF lndx=8 THEN EXIT FI 
DropLevel C] ;Make levels fall 
IF cstackyclJ=22 AND stackyC2J=22 
AND StackyC3J=22 AND StackyC4J=22 
AND StackyC5J=22 AND Stacky C6J =22) 

THEN EXIT;test for level finished 
FI 
IF Level=5 THEM Checkd 

tiMe=8 DO UNTIL tiMe=2 DD 
FI 
OD 
RETURN 

PROC Vector CJ 

;DuMMy PROC for the screens 

RETURN 

PROC IntroC} 
BYTE tM=28 

D0~SoundC8,tM,ie,4J UNTIL tH=ie8 OD 

Position C15, 23) 

PrintC" "J 

Updated SoundC8,e,e,8) 

RETURN 

PROC Maind 

BYTE tiHe=28,lp,Ch=764 

Titled 

Gr4lnitd Sndl=8 5nd2=3 

Downloadd PMgraphicsd 

FOR lp=8 TO 7 DO PMClearClp) OD 

FOR lp=l TO 3 

DO PC0lrClp)=CCRandC14)+l)LSH 4)+18 OD 

PcolrC8)=56 Hodifyd ScoreLineC) 

ScCl)=Screenl Sc C2)=Screen2 

ScC3)=Screen3 5c C4)=Screen4 

ScC5)=Screen5 sc C6)=Screen6 

ScC7)=Screen7 Sc C8)=Screen8 

Sc C9)=Screen9 

DO lndx==+l Vectop=sc CIndx) 

FOR lp=B TO 7 DO PMClearClp) OD 

Vectord Introd Playd 

IF lndx=9 THEN Indx=8 Level==+4 
IF Pep<8 THEN Pep==+2 FI 
IF Ft>188 THEN Ft==-28 FI Updated 

FI 
OD 
RETURN 
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ave you ever 
wondered 



The Index is supposed to be an objec- 
tive description of writing's clarity: A 
high number indicates poorly or com- 
plexly written work, a low number is 
simplistic and easily understood writing. 
The Index number corresponds to the 
grade level needed to imderstand the 
text. To determine the Fog Index of a 
paper, word, long word, and sentence 
counts are taken and a simple formula 
used to determine the result. 

Long words are words with three syl- 
lables or more. Independent phrases. 



One of the best things you can 



Why seme people's writ- 
ing has all the order of 
an ll-car piieup? How can ^ ^of w^ '« ^ ^ '^ 
these writers, normally 
very clear individuals, 
make such a mess of sim- 



honest opinion from someone 
who knows absolutely nothing 



pie ideas in a tangle of 
run-on sentences, mis- 
placed punctuation, and 
needlessly long words? 



about the subject. 



Why does it give you a headache to 
read even the shortest paper by these 
folks? Simple. People with this problem, 
and we all run into it at one time or 
another, don't proofread. They write a 
sentence, one that may be long and com- 
plex, but never take the lime to read it. 
That sentence sits there with all the 
grace of a tractor, when several shorter 
sentences would have done the job much 
more effectively. 

A reader may have to read a sentence 
several times just to understand it. It's 
an annoying, often inconvenient, 
problem. And one that shows no sign of 
going away anytime soon. There is a sim- 
ple solution, however. To stop writing 
this type of 'foggy' or unclear work, 
there are several things that you can do: 
1. Re-read what you've written, both af- 
ter you've written it and after you've let 
it sit for awhile. 2. Re-read the paper 



like someone who knows nothing about 
the subject. Did you cover all the bases? 
Is there anything that the layman 
wouldn't understand? 3. Get someone 
else to read the paper. 

One of the best things you can do for 
yourself is to get an honest opinion from 
someone who knows absolutely nothing 
about the subject. I let my mom read all 
my stuff about computers. 

And although all of these steps are 
useful and very helpful to eliminate fog- 
gy writing, there is only one real way to 
mechanically, objectively determine if a 
piece of writing is clear or not: the Fog 
Index. Robert Gunning, creator of the 
Fog Index, coined the phrase foggy 
writing to describe text with a low 
readability. 



such as what follows a semicolon, are 
counted as separate sentences. Lost in 
the Fog is a computerized version of the 
Fog Index for the 8-bit Atari computers. 
To use Lost, first type in Program 1, and 
save it to disk. Be sure to save a copy 
before using it, because it contains 
machine language that will crash the 
computer if typed incorrectly. Now RUN 
Lost and insert a disk with a text file on 
it into drive one. Though Lost in the Fog 
was designed for use with files created 
by AtariWriter, it should work with any 
word processor that stores its text as a 
standard DOS file. 

AtariWriter Plus files must be saved 
with the ASCII Save option to be 
checked correctly. Lost will request the 
filename of the text to be fogged . Enter 
one. To get a directory of drive one, just 
press RETURN in place of a filename. 
Once you've entered the file's name, the 
program will start its fogging. The en- 
tire text file will be printed on the bot- 
tom half of the screen, so you can re- 
read your writing as it goes by. To inter- 
rupt a Fog session, just press the ESC 
key. The results so far will be immedi- 
ately displayed. 



A.N.A.L.O.G.COMPUTINC'JULY 1988 



21 



N/'NXI-iat F>. 



F>l 



Researchers, using the Fog Index as 
a guide, have found that most people 
like to read below their grade level. 
Even college professors are uncomfort- 
able above a Fog Index of 12. Most 
popular magazines, such as ANALOG, 
publish between the sixth and eighth 
grade. (For a fogging of some famous 



people's writing, see Figure 1.) If you 
find that a paper has gotten a score of 

Long words are words with three 
syllables or more. 



ten or higher it would probably benefit 
from shorter sentences and shorter 



words; dialogue shouldn't be any higher 
than six or seven. Although the Fog In- 
dex is by no means totally accurate or 
definitive, it does give you an effective, 
objective view of a piece of writing's 
readability. By using Lost in the Fog in 
conjunction with the other steps men- 
tioned above, your papers can take on 
a clarity they never had before. It really 
can help make you a belter writer. By 
the way, this article has a Fog Index of 
eight. Not bad, eh? 







5R 10 DIM OSClOGJ,BSClO0),FSt28J :AS=" " 
NH 20 GRAPHICS OiPDKE 559,0:POKE 709,4:P0 

KE 710,6:POKE 71Z,6:P0KE 82,1 
LZ 30 OPEN ttl,4,0,"K" 
KG 40 DL=tPEEKtl06J-4)*256:TOP=CPEEKtlOBJ 

-12)»256 : 5CR=PEEK C88) +PEEK (89J»256 
KQ 50 FDR 1=0 TO 32 : READ AlPOKE DL+I,A:NE 

XT I 
NN 60 POKE DL+4,T0P-INTtT0P/256J»256:P0KE 

DL+5, TOP/255 
YI 70 A=SCR+480:POKE DL+17, A-IMT CA/256)»2 

56:P0KE DL+18, A/256 
RL 80 POKE 560,DL-IHTCDL/256)»256:P0KE 56 

l,DL/256 
NP 90 FOR 1=1536 TO 1556:READ A : POKE I, A: 

NEXT I:POKE 512,e:P0KE 513,6:P0KE 5428 

6,192 
HL 100 POKE 88, PEEK tDL+4) : POKE 89,PEEKCDL 

+5) 
EC 110 POSITION 3,2:? "lost in the " : PO 

SITION 28,2:? "fogh" 
PD 120 POSITION 7,4:? "Copyright 1988 Mag 

nuM Opus": POSITION 13,6:? "By Greg Kna 

uss" 
IZ 130 POKE 88,SCR-IMT(SCR/256J»256:P0KE 

89, SCR/256 
KT 140 FOR 1=1 TO 15:? : NEXT I:P0SITI0N 1 

,13:? "Please enter the filenane and e 

xtender" 
KR 150 ? "Of the text to be fogged, place 

the" 
MA 160 ? "disk containing it in drive one 

, and" 

IB 170 ? "press ■ilJiilhl.'B . For a directory 

of the" 

QJ 180 ? "disk in drive one, press ■!>=>ill!l 

YA 190 ? "alone.":? 

KJ 200 POKE 752,0:? "FILENAME . EXT? D:";:I 

= 

QW 218 POKE 559,34 

BH 220 GET ttl,A 

FN 230 IF A=155 THEN 290 

OC 240 IF A=126 AND I>0 THEN AS tl) = ? C 

HR$CAJ J : 1=1-1: GOTO 220 
HI 250 IF A>128 THEN A=A-128 
FQ 260 IF A>96 AND A<123 THEN A=A-32 
LY 270 IF NOT ttCA>64 AND A<91J OR (A>47 
AND A<58J OR A=463 AND K12J THEN 220 
HW 280 1=1+1 : AS tIJ =CHRS CAJ :? CHRStAJj:GOT 

220 
HR 290 POKE 752,1:IF I>0 THEN FS="D:":FS( 

3]=AS:G0T0 400 
ZC 300 POKE 752,1:? :? :? "Directory...": 

A=0 
NN 310 TRAP 370 
QT 320 OPEN «2, 6, 0, "D :».«" 



EP 330 INPUT «2; AS :A=A+l: POSITION 1,23 :IF 

INT£A/2J=A/2 THEN POSITION 20,23 
JN 340 ? AS;: IF INTCA/2J=A/2 THEN ? 
GN 350 IF INTCA/14)=A /14 THEN ? :? : POSIT 

ION 8,22:? "Press ■tlat^lhr^ for More.": 

POKE 764,255:GET ttl,I:? 
NU 360 GOTO 330 

SG 370 IF INTtA/2J<>A/2 THEN ? 

JO 380 CLOSE tt2:? :? " Press Bil^^lhrB to 

enter a filenane," 
PZ 390 POKE 764,255:GET ttl,A:GOTO 140 
XF 400 TRAP 640:POKE 764, 255 : L=0 : FOR 1=1 

TO 15:? :HEXT I:POSITION 1,12 
SY 410 OPEN tt2,4,e,FS:I=O:N=0:L=0:M=0:S=O 

:LM=0 
MM 420 GET tt2,A:IF CA>64 AND A<123} OR A= 

16 THEN AS=CHRSCA1 :N=l:GOTO 440 
NP 430 GOTO 420 
UQ 440 Nl=N:BS=A$;N=l:I=0 
WF 450 GET «2,A:AStN)=CHRSfA) :IF A<>32 AN 

D A0155 THEN I=1:N=N+1 
DG 460 IF A<>32 AND A0155 THEN 450 
XM 470 IF 1=0 THEN 450 
CE 480 IF Nl>9 THEN LW=LW+1 
PI 490 IF LENCAS}>1 THEN I=ASC (AS CLEN tAS) 

-i)J:IF 1=46 OR 1=33 OR 1=63 OR 1=58 

R 1=59 THEN S=5+l 
ZE 500 IF 1=34 OR 1=39 OR 1=41 OR 1=93 TH 

EN I=ASCCA$(LENCAS)-2J) :IF 1=46 OR 1=3 

3 OR 1=63 OR 1=58 OR 1=59 THEN S=S+1 
BE 510 W=W+l!? BSj :L=L+Nl:IF L+N>38 THEN 

L = 0:? 
BY 520 IF B=155 THEN L=0 
NE 530 B=A:POKE 77,0:IF PEEKt764J<>28 THE 

N 440 

BS:IF Nl>9 THEN LW=LW+1 
I? :? "Analysis of ";FSC3,LEN CFS 
. " : ? 

"NuMber of words: "jw 
"NuMber of sentences: ";S 
"NuMber of long words: ";LW 
IQ 590 IF S=0 THEN ? :? "QNeed at least o 

ne sentence for":? "analysis!":GOTO 53 


MQ 600 ? "NuMber of words/sentence: "jlNT 

tW/5J 
NF 610 ? "NuMber of long words/sentence: 

";INT(LW/SJ 
NL 620 ? "Fog Index rating: ";INT((0.4«tM 

/S + LMWIOO/WJ »100+0 . 5J /1003 
PU 630 GOTO 380 

DS 640 A=PEEK(19 51 ;IF A=1 36 THEN 540 
XM 650 ? :? :? "Lf l:j;l!li];IM NUMber ";Aj".": 

? :? "Press ■!»=»ii;rJ to restart." 
AM 660 FOR 1=1 TO 7:? : NEXT I:POKE 764,25 

5:GET ttl,A:CLOSE »2:G0T0 140 
LE 670 DATA 112,112,112,66,0,0,2,6,112,7, 

2,2,2,2,130,112,66,0,0,2,2,2,2,2,2,2,2 

,2,2,2,0,0,55 
ZL 680 DATA 72,169,0,141,10,212,141,26,20 

8,169,146,141,24,208,169,10,141,23,208 

,104,64 g^ 



BZ 540 
PY 550 ? 
J ) ; " . . 
JY 560 ? 
TN 570 ? 
TE 580 ? 
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bu*ll notice* if 



you keep up with 
ail tlie popular Atari 
specific publications* 
that the general consen- 
sus about the extra 641c 
in the ilOXE is: BASIC 
programmers* keep out! 
this is actually pretty 
sound advice* but does 
lead one to think that 
the matter is an open- 
and-shut case* which 1% 
not necessarily true. 
Let's first take a look at 
why BASIC can*t access 
the extra banks of RAN. 
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The first thing to know is that BASIC 
can indeed access the extra RAM. It's 
as simple as a single POKE statement! 
Hmmm, there must be more to it than 
that. Well, there is. Since the XE has 
64K of main RAM, we can think of it 
as four 16K blocks. The first block goes 
from memory locations to 16383. 
The second from 16384 to 32767, 
third 32768 to 49151, and the fourth 
is 49152 to 65535. The extra 64K is 
divisible exactly the same way. We'U caU 
each of these divisions a "bank." The 
special memory management chip in the 
XE can let you access all four banks, but 
only one at a time. It does this by lay- 
ing the bank you specify in place of the 
main RAM's second bank, from 16384 
to 32767. So, whenever you execute 
that special POKE, the bank you speci- 
fy shows up in place of the main RAM's 
bank. 

What happens to the main RAM's 
bank two? Ah, this is where the problem 
arises. The normal bank two section of 
RAM becomes completely invisible, as 
though it didn't exist. Now suppose you 
had a fairly good sized BASIC program 
in memory. Chances are it will extend 
well into the second bank of RAM. As 
soon as you enable an extra bank in 
place of the normal one, your BASIC 
program goes into la-la land. You can't 
re-enable the normal bank because you 
no longer have the program in RAM! 

N/X^ |-~i ^ r-» czl<:r»^^ 

Right now! Even though BASIC can't 
hack enabling and disabling the extra 
RAM banks, machine language can. 
Here's how: Most everyone knows that 
a USR statement transfers control to a 
machine language routine. Let's say the 
routine is located in Page 6, from 1536 
to 1791. When the machine language 
program has control, it doesn't care 
what you do with the second bank of 
RAM, since it lies within the safety of 
the first bank. So, the secret is to give 
control to the machine language, let it 
enable the extra banks, perform the 

24 



operation involving the extra RAM, then 
re-enable the normal bank two, and 
return control to BASIC. Sound simple? 
Actually, it really is. 



St- |r> jp 1 1 C3 ^ti: ■ cr> n 

Listing 1 is a BASIC program that will 
load up to eight graphics screens (in an 
UNcompressed, 62-sector format) and 
save them into the extra memory. Af- 
ter they are all there, you can load any 
one of them back into the screen area, 
one by one, almost instantly! Here's 
how to use it: 

1) Round up several (up to 
eight) screen files on a single 
disk. 

2) Type in Listing 1. 

3) In Line 140, set the variable 
PICS equal to the number of 
picture files you have on the 
disk. 

4) Type the picture files' names 
on Line 9100 as DATA ele- 
ments (erasing the ones already 
there). 

5) Lines 9201 thru 9208 are 
DATA statements describing 
the picture file. (9201 describes 
picture one, 9202 describes 
picture two, etc.) Here's what 
the program expects to find 
there: 

Data element 1: The graph- 
ics mode (plus 16) of the pic- 
ture. (Can be 31, 24, 9, 10 or 
11.) Data elements 2-6: The 
values to POKE into the color 
registers from 708-712. 

6) Save the program before run- 
ning it. 

7) After you type RUN, the files 
will load onto the screen, and 
be saved into the extra RAM. 
The saving to extra RAM is 
done right after the picture 
loads, and you'll notice there is 
virtually no delay at all. 

8) The last screen loaded will re- 
main visible. Now you can 
press a number between one 
and eight instantly. 

If you only loaded five pic- 
tures, pressing 6, 7 or 8 will put 
garbage on the screen. No 
harm, it's just the data that's in 
the extra RAM at powerup. 

9) Hit to clear the screen, ES- 
CAPE to quit the program. 

I ^<nt-ir-»icz:^ll>^ 
^ p> ^ SL !-<: i n ^ 

All the machine language program 
does is decide which bank should be 
enabled and at what address it will find 



the correct data (determined from the 
variable BANK in the USR calls). It then 
enables the correct bank. Next, it does 
a very simple memory move routine to 
move flEOO (7680) bytes into the 
screen RAM area or from the screen 
RAM area based on the first argument 
in the USR call (0 means save from 
screen to extra RAM, 1 means from ex- 
tra RAM to screen area). Lastly, it re- 
enables the normal configuration and 
returns to BASIC. 

Using the machine code in your own 
programs is easy. 

Follow these rules: 

POKE the data found in Lines 
9005 thru 9030 into locations 
1536 thru 1637 

Call it with: A = USR (1536, OPER, 
SCRN, BANK) where OPER equals to 
move data from the screen to RAM, and 
1 to move RAM to the screen, and 
SCRN equals the address of the screen, 
found by SCRN = PEEK (88) 4- PEEK 
(89)* 256 (after you execute your 
graphics command). Bank equals a 
number between one and eight signify- 
ing which bank (actually half-bank) to 
store to or load from. If you use only 
one or two banks, it doesn't matter 
which ones you choose; they are all ex- 
actly the same. 

Listing 2 is the assembly source code 
written with Mac/65 from OSS. 

I ^^"tly ... 

This program is simply a way to 
demonstrate the ability to access the ex- 
tra RAM, even from BASIC (sort of). 
The routine in Page 6 isn't completely 
useless though. If you're writing a draw- 
ing program for the XE, you can easily 
use this routine to enable you to have 
eight screens in the computer at once! 
Switching from one to the other would 
be a piece of cake. Or you could set 
aside one of the banks for an Undo fea- 
ture. This simply means that each time 
a new "tool" or color is chosen to draw 
with, you save the current screen into 
the extra RAM. If the user decides he 
liked it better before his changes, he 
hits the Undo key, the program loads 
the extra RAM back to the screen, and 
it looks like all the changes disappear. 
See if you can find some other uses, too. 
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VE le REM KEBflNK5 FROM ANALOG COMPUTING 
RU 15 ? CHR$C1253 :POKE 752, 1 : POSITION 2,1 

O:' "Insert disk with pictures. Hit RE 

TURN" 
UF 16 IF PEEK C764J =255 THEN 16 
RZ 17 POKE 764,255:P0KE 752,0:? CHRStl25) 
HC 20 IF PEEK £1637) 0237 THEN GOSUB 9000 
PY 100 ICCOM=834:ICBADR=836!ICBLEN=840 
QZ 110 CGBINR=7;K1=16 

120 DIM FILESC20) ,T$C20) 

130 GRAPHICS 8:SC=PEEKC88)+PEEKtB9)*25 

6 

OT 140 PICS=8:REST0RE 9100 
LI 150 FOR BANK=1 TO PICS 
EU 160 READ T$ : FILES="D :": FILES C3J =TS 
BG 170 CLOSE aiiOPEH ttl, 4, 0, FILES 
UX 180 POKE ICC0M+X1,CGBINR 
UE 190 POKE ICBADH+Xl,PEEKt88J :P0KE ICBAD 

R+1+X1,PEEKC89) 
UO 200 POKE ICBLEN+X1,0:P0KE ICBLEN+1+Xl, 

30 
UN 205 POKE 752,l!P0KE 656,1:? CHR$C1563; 

CHR$C127) j"Loading "JFILES;" . . . " 
HA 210 A=U5RCADRC"hhhSLVB"3,Kl) : CLOSE ttl 
05 220 A=U5RC1535,0,5C,BANK) 
AG 230 NEXT BANK 

XR 235 CLOSE 81:0PEN »l-.*>0 '"^■■'' ,„ ,„ 

AY 240 ? CHR$tl25) :P0KE 656,1:P0KE 657,10 

:? "Hit 1-8, ESC to end"; 

5X 258 GET rtl, BANK : BANK=BANK-48 

OV 260 IF BANK=0 THEN ? tt6; CHRS 11253 :G0T0 

250 
OU 280 IF BANK=-21 THEN END 
TX 290 IF BANK<1 OR BANK>8 THEN 250 
FL 300 RESTORE 9200+BANK ; READ MODE, CO, CI, 

C2,C3,C4:GRAPHICS MODE 
TM 310 POKE 708,C0:P0KE 709,Cl!POKE 710, C 

2:P0KE 711,C3:P0KE 712, C4 
OV 320 SC=PEEKC88J+PEEKC89)»256:A=USRtl53 

6,1,SC,BANK) 
OB 330 GOTO 250 „„.,^ ^ 

JF 9000 FOR 1=1536 TO 1637:READ D;POKE I, 

d:hext I: return , ,„ „ 

KT 9005 DATA 104,104,104,208,18,104,133,2 
25,104,133,224,104,104,32,65,6,134,226 

132 227 
GL 9010'dATA 76,38,6,104,133,227,104,133, 
226,104,104,32,65,6,134,224,132,225,16 

2,30 
VO 9015 DATA 160,0,177,224,145,226,200,20 

8,249,202,240,7,230,225,230,227,76,40, 

R 1 B9 
GS 9020 DATA 253,141,1,211,96,170,24,106, 

144,8,32,86,6,162,0,160,64,96,32,86 
RU 9025 DATA 6,162,0,160,94,96,202,189,94 

,6,141,1,211,96,225,225,229,229,233,23 

3 
ZG 9030 DATA 237,237 
QD 9100 DATA PIC . 1, PIC . 2, PIC . 3, PIC . 4, PIC . 

5, PIC. 6, PIC. 7, PIC. 8 
ZI 9200 REM SCREEN SPECIFIC DATA 
UX 9201 DATA 31,20,18,0,0,70 
TP 9202 DATA 31,50,10,4,0,0 
ZJ 9203 DATA 31,36,12,68,0,0 
OP 9204 DATA 31,40,202,148,0,0 
HO 9205 DATA 31,2,4,38,0,0 
AO 9206 DATA 31,0,10,66,0,148 
BB 9207 DATA 24,0,10,2,0,2 
XZ 9208 DATA 24,0,10,0,0,0 



.istii r-»^ 



10 
20 
30 
40 
50 
60 
70 
80 
90 
0100 



; m t>l>' 



.OPT NO LIST 
SAUE«D:XEBANK5.M65 
A5M,,ttD:XEBAHKS.0BJ 



Save up to 8 Gr.7+,8,9,10 or 11 
screens into the XE's extra 
RAM. won't interfere with 

BASIC! 



Olio 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

3620 

3630 

0640 

0650 

0660 

0670 

0680 

0690 

0695 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0778 

0780 

0790 

0800 

0810 

0820 

0830 

8840 

0858 

8 dee 

8870 
0880 
0890 
0900 
0910 
8920 
0930 
0940 
0950 
0960 
0970 
0980 
6990 
1000 
1010 



Call With: 

A=USRt 1536, oper,scrn, bank) 

Mhere: 

1536 is addr of routine 

for save to XRAM 

1 for load froM XRAM 
add/ ess of screen RAM 
a number froM 1-8 
signifi^ing which "bank" 
to load/save to/frow. 



oper = 



scrn 
bank 



« of args 
ignore high byte 
this is the one 
wake SCRN the TO 



high of BANK 
low of BANK 



FROM = SE8 
TO = SE2 
PORTB = $D301 

»= $0600 
START 

PLA 

PLA 

PLA 

BNE LOAD 

;else Make SCRN the FROM 
5AUE 

PLA 

STA FROM+1 

PLA 

STA FROM 

PLA 

PLA 

JSR MHERE 

5TX TO 

STY TO+i 

JMP ACTION 
LOAD 

PLA 

STA TO+1 

PLA 

STA TO 

PLA 

PLA 

JSR MHERE 

5TX FROM 

STY FROM+1 
ACTION 
;here we actually Move the data 

LDK ttSlE « of pages 
LOOPl 

LDY ttO 
L00P2 

LDA CFROM),Y 

STA CTO),Y 

INY 

BNE L0DP2 

DEX 

BEQ DONE 

INC FROM+1 next page of RAM 

INC TO+1 

JMP LOOPl 
DONE 

LDA ttSFD 

STA PORTB 

RTS 
WHERE 

; decide if the address is S4000 
■ or $5EO0. Enable accordingly. 
save it for later 



high of BANK 
low of BANK 



restore it to 
nornal status, 
back to BASIC 



odd or even? 



TAX 
CLC 
ROR A 
BCC EUEN 
ODD 

: was an odd nuMber, so the bank 
; is 1, 3, 5 or 7. That weans 
; it's located at $4080. 

JSR ENABLE 

LDX nSoo 

LDY «S40 
RTS 
EUEN 

i set up for pointing to SSEOO. 

JSR ENABLE 

LDX »S00 

LDY ttS5E 

RTS 
ENABLE 

DEX 

LDA IHSTR,X 

STA PORTB 

RTS 
IN5TR 

.BYTE SE1,SE1,SE5,SE5 

.BYTE $E9,SE9,$ED,SED 



1-8 now 0-7 
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odems arenPt 
particularly 
difficult to set up and 
use. On the ether hand, 
it's relatively easy to 
foul up your modem's 
operation throush care- 
lessness or lack of 
knowledae. This article 
will serve as a guide in 
setting up and using 
your modem, if you ob- 
serve the procedures 
and precautions men- 
tioned herein, you'll 
save yourself a lot of 
trouble later on. 
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quired for the connection to be success- 
ful is that the pins on each connector be 
properly wired (i.e., the wire on each 
numbered pin on the DB-9 connector 
should be connected to the correspond- 
ingly numbered pin on the DB-25 
connector). 
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As with any electronic device, it is im- 
portant that you connect your modem 
properly and use it under practical 
operating conditions. Study the manual 
that comes with your modem to assure 
proper connection, and consult with 
your computer store and the modem 
manufacturer's customer-support 
department if necessary. 

CZ:«=»r-i i-»^<=t::<=>r-s 

The cables (and the connectors used 
with those cables) that connect a com- 
puter's serial port with a modem are ob- 
viously very important elements in the 
data transfer chain. Like serial ports, 
connectors and cables used with serial 
ports must conform to the RS-232C 
standard. 



There are two types of RS-232 con- 
nectors — nine- and 25-pin — and these 
May be male or female. Nine- and 
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With some equipment you may 
find that you have what is called 
a "gender problem." 



25-pin connectors are known as DB-9 
and DB-25 connectors, respectively. 
Each type has numbered pins (very im- 
portant if you intend lo make your own 
cables— saves a lot of messing around 
with a continuity tester). 

DB connectors can be found on the 
serial porl of your micrconipuler and 
modem, and at either end of the con- 
necting cable. (A connecting cable is 
typically a "ribbon cable"— a flat cable 
with multiple connectors.) 

1^-1 i:x:i r-»^ 

DB-25 and DB-9 connectors can be 
used at opposite ends of a cable if neces- 
sary (as when a computer's serial port 
has a DB-9 connector and its modem 
has a DB-25 connector). All that's re- 



Incidentally, there's a standard that 
dictates that the female version of a DB 
connector should be used only on mod- 
ems, while the male version should be 
used on computer serial ports. Thus, a 
"standard" RS-232C cable will have a 
male connector on one end (to connect 
with the modem), and a female connec- 
tor on the other end (to connect with the 
computer). 

Unfortunately, not all manufacturers 
follow this standard regarding the 
gender of their serial ports. So, with 
some equipment you may find that you 
have what is called a "gender problem." 
(No sex-change jokes, please— this is 
serious stuff!) When this is the case, 
you'll have to buy or make an appropri- 
ate cable with both female or both male 
connectors. Or, you can obtain what are 
called "gender changes" to change the 
"sex" of one end of the cable. 

~r^ I ^ F*''^ *^^> *"* ^ 
R»i«_is:/J^<='^ 

Before plugging a telephone line's 
modular plug into a modem, make sure 
of the plug's type. Most modems are 
designed with modular jacks, but modu- 
lar (also designated "RJ") jacks and 
plugs come in more than one variety. 
Some are cross-compatible, and some 
aren't. 

Generally, a home or single-line bus- 
iness telephone system uses RJ-11 plugs, 
and these present no problem — even if 
the plugs are set up to provide dial light 
power to a "Trimline" phone or other 
lighted-dial telephone sets. (The only 
danger in using an RJ-11 plug that pro- 
vides power for a lighted dial with a 
modem is if the modem is set up to 
operate with RJ-12 or RJ-14 plugs. See 
below for more information on these 
plugs.) 

RJ-41 and RJ-45S plugs are also 
"safe" to use with most all modems; the 
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exceptions may be modems which have 
RJ-12 or RJ-14 plugs. See your mod- 
em's documentation for details. 

If your telephone system is a multiple- 
line or "key" telephone system, you 
must have a modem that is capable of 
interfacing with RJ-12 or RJ-13 plugs 
(such as a Hayes Smartmodem 2400). 
The modem you use must also be 
software-switchable to RJ-12/RJ-14 
operation. 

Most modems have user-accessible 
DIP switches (although the relative ac- 
cessibility varies from modem to mod- 
em). DIP switches are used to set vari- 
ous attributes of a modem, such as 
whether it waits for a carrier detect be- 
fore going online, etc. 

Some software packages require that 
certain modem attributes be set to a 
specific state. If your software has decent 
documentation, it will tell you which 
states must be set; in which case all you 
have to do is refer to your modem's 
documentation to find out which DIP 
switches are used to set the attributes in 
question. (Some software manuals will 
even tell you how to set each DIP switch 
on the more popular modem brands. 
Too, some modem manuals provide 
specific instructions on DIP switch set- 
tings for certain software packages.) 

Te 1^ p>|-i <::> r-i^ 

Local telephone company regulations 
may vary, but in general the following 
rules are in effect: 

Your telephone company should be 
notified that you will be connecting an 
FCC-registered device to your telephone 
line before you connect it, and that you 
will be disconnecting the modem when 
you disconnect it permanently. 

You cannot connect a direct-conned 
modem to a pay telephone, nor to a 
party line. 

N/^^ r-i tz i I ^ir i c:r> n 

Don't use a modem as a bookshelf or 
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repository for other materials. While 
some external modems are designed to 
serve as a resting place for a telephone 
set, they aren't designed to be 
smothered by papei-s, disks, etc. A mod- 
em's electronic components generate 
heat, which must be dissipated; too 
much heat buildup can interfere with 
proper operation of the modem. There- 
fore, heat vents — as well as most of the 
top of the modem — should not be 
covered. 



If your modem is equipped with a 
power switch, use it to turn the modem 
off and on. Leaving the switch in the 
"ON" position and just plugging and 
unplugging the modem's power supply 
is not a good idea; this can occasionally 
create power surges or ciu-rent overload. 

Don't use a modem as a 



bookshelf or repository for other 



materials. 



Wlien changing the battery in a battery- 
powered modem, the power switch 
should be hi the "OFF" position, for the 
same reasons. 

<II>N/'^ r-|<z>^<zJ i r-».s 
CZZ i r-cz u i tn^ 

Don't plug your modem into an over- 
loaded or faulty circuit. Aside from the 
fire hazard this creates, overloaded cir- 
cuits often have low voltage, and low vol- 
tage can cause excess heat and poor per- 
formance in your modem. (Overloaded 
circuits are typically those with too many 
electrical devices plugged into them.) 



Surge protectors (also called "spike 
protectors") are an excellent investment. 
The purpose of a surge protector is to 
protect an electronic device from sur- 
ges in a power or telephone line. Such 
surges are common during thunder- 
storms and during periods when elec- 
trical power consumption is particular- 



ly heavy. Power-line surge protectors 
come in a variety of styles, but all oper- 
ate in the same manner. Placed in the 
circuit between your computer and/or 
modem and the wall outlet, they contahi 
capacitors which absorb and then bleed 
off excess power. Note that power-line 
surge protectors come in several config- 
urations. Some are simply small 
cylinders or cubes and offer only one 
receptacle. Others are large rectangular 
boxes which mount on the wall in place 
of the wall receptacle's cover. These 
usually offer more than one receptacle. 
Some of the better surge protectors not 
only provide protection against power 
surges, but also filter "line noise," and 
provide a circuit breaker for protection 
against current overload. Telephone-line 
surge protectors operate on the same 
principle as power-line surge protectors. 
Installed between a modem and its tele- 
phone line, a telephone-line surge pro- 
tector absorbs then slowly discharges 
potentially damaging voltage spikes. 

< — '■ <::> n cJ i t i <:z> i— i ^ 

Never use your modem during a se- 
vere thunderstorm, nor at any time you 
observe lightning. Lightnhig is a guaran- 
teed source of power surges in both AC 
power lines and telephone lines and, un- 
less you have a surge protector on both 
your modem's telephone line and pow- 
er line, there's an excellent chance that 
your modem and computer will be 
"zapped" by a current surge. (Even with 
surge protectors, there's no guarantee 
that lightning won't damage your 
equipment.) 

F<-^ "f ^ r-^ n cz: ^ :s 

There are several excellent books on 
using modems that expand upon these 
topics with technical information. These 
include: 

The Modem Book, by Michael A. 
Banks (Brady Books, 1988); Under- 
standing Data Communications, by Ge- 
orge E. Friend, et. al., (Howard W. Sams 
& Co., 1987); and Communications and 
Networking for the IBM PC & Compat- 
ibles, by Larry Jordan and Bruce Chur- 
chill (Brady Books, 1987). 

Check with your local computer store 
for information on ordering these 
books. 
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The theme of distorting a basic 
tile sliape as it is drawn in 

successive rows forms tlie Insic 

idea lieliind many of MC 

[seller's drawings. 




tesselation or 
tiling is tlie 
complete covering of a 
flat surface by one or 
more figures in a pat- 
tern, with no overlap- 
ping of the figures and 
no open spaces. As we 
discussed last month, 
tesselations are com- 
monly found in linoleum 
patterns, parquet floors 
or fabrics. 



All of the tilings we discussed, and 
many of the tilings found around one's 
home, share the property of beuig peri- 
odic. A tesselation is periodic if you can 
shift the drawing without rotation or 
reflection to a new position where all 
outlines again fit exactly. While there 
are an infinite number of shapes that 
will tesselate periodically, periodic til- 
ings by no means exliaust all of the pos- 
sible ways to cover a plane surface. In 
this article we will present two programs 
that illustrate more intricate tilings. The 
first draws a non-periodic tiling that has 
rotational symmetry. The second covers 
the screen with tiles that are gradually 
deformed as each successive row is 
drawn on the screen. 

One of the charming things about the 
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study of tilings is that it bridges the gap 
between art and science. Mathemati- 
cians have related tilings to group the- 
ory, which is the abstract study of sym- 
metry. Physicists study tesselations to 
gain insights into the formation of crys- 
tals, and, of course, the famous artist 
M. C. Escher made frequent use of til- 
ings in his work. In developing our pro- 
grams we drew upon ideas from all of 
these fields. In particular, we have made 
use of the ideas of translation and rota- 
tion of coordinates as a way of writing 
short programs that you may easily 
modify. 

In order to illustrate tesselations with 
rotational symmetry, the basic tile used 
is a diamond which is based on a 
30-60-degree right triangle. 



n 




Previously, we introduced the use of 
a "local coordinate system" (LCS). The 
idea behind a LCS is that if you want to 
repeatedly draw the same figure on the 
CRT screen, the most efficient way to 
do it is to represent the coordinates of 
the vertices of the figure (points 
A,B,C,D in Figure 1) in terms of a 
hypothetical coordinate system. Then to 
draw the figure on the screen all you do 
is position the origin of the LCS where 
you want it and draw. In this way, the 
same subroutine can draw all the tiles 
you need. 

In the LCS, the coordinates of the ver- 
tices of Figure 1 are: 

A = 0, 
B = 17.32, -10 
C = 34.64, 
D = 17.32, 10 

To make a tesselation with rotational 
symmetry, we want to draw this dia- 
mond in a circular pattern so that the 
first row will look like: 



READ, ROTATE, TRANSLTXTE. 

That is, for each diamond, no matter 
where it is, the program first reads the 
data numbers, then rotates the figure 
into the proper position, and then trans- 
lates the vertex of the diamond to the 
proper location. 

With this background, you should be 
able to follow the program of Listing 1 . 
This program creates three rows of di- 
amonds (Figure 3). You may easily 
modify it to add a fourth. Be sure to in- 
clude a clipping routine to avoid the 
dreaded "cursor out of range" error! 



by bending each leg from 






Of course, you will want to experi- 
ment with more than just diamond tiles. 
An excellent place to start is with trian- 
gle tilings. The reason is that each tile 
can be changed by distorting the legs. 
For example, change 




to 



Tlje next circular row must fit around 
this design. The algorithm for generat- 
ing the pattern can be simply stated as: 



to 




Actually you can be more imaginative 
than this because a triangle can be dis- 
torted in an infinite number of ways to 
yield a figure capable of being used in 
a rotational tesselation. 

The theme of distorting a basic tile 
shape as it is drawn in successive rows 
forms the basic idea behind many of 
M. C. Escher's di-awings. For example, 
birds might gradually lose their shapes 
and become checkerboarded fields of 
hay or even metamorphose completely 
into fish as hi "Sky and Water!." Our 
second program illustrates this gradual 
metamorphosis of one shape into 
another. In addition to being indebted 
to M. C. Escher for inspiration, we also 
must credit Douglas Hofstadter who, 
several years ago, devoted a column of 
"Melamagical Themas" in Scientific 
American to "Parquet Deformations." 

The basic idea is that simple geomet- 
ric shapes which can tile the plane are 
slowly deformed as they move across or 
down the plane. Deformations may be 
created with a number of simple tech- 
niques such as: 

1. Lengthening or shortening a line. 

2. Introducing a "hinge" into a line 
segment so that it can flex. 

3. Rotating a line or a group of lines 
that form a natural sub-unit. 

4. Introducing a small "bump" or 
tooth into a line segment. 

By using one of these techniques and al- 
lowing it to continue long enough, such 
deformations can have unexpected 
results; one outcome being that tiles at 
the end of the work bear little or no 
resemblance to those at the beginning. 
In order to keep our program simple, 
we restricted it to drawing a diamond 
and flexing the sides of the tile "in" or 
"out" to deform it. There are, of 
course, many other methods of deform- 
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ing tiles, just as there are many other 
shapes that lend themselves to deforma- 
tion. Here is a chance to exercise your 
creativity by building upon the ideas in 
this program. 

It is evident that drawing a tesselation 
in which the shape of the tile is changed 
before each row is drawn is more in- 
volved than simply drawing the same tile 
many times. We have approached this 
problem by introducing what at first 

Physicists study tesselations to 



gain insights into the formation of 



crystals. 



glance may seem like an unnecessary 
complication. First, we note that many 
shapes which can tile a surface have 
some sort of rotational symmetry. This 
means that if you rotate the shape 
around its center through some fraction 
of a circle ('/a, Vs, 'A, etc.) you get back 
the original shape. If this is the case, and 
it certainly is with the diamond, then we 
need only specify part of the shape, say 
two sides, and let the computer rotate 
that part as often as necessary to close 
the shape. You should visualize this ro- 
tation as taking place in the LCS. The 
rotation routine necessary to do this is 
the same as the rotation subroutine in 
Listing 1, lines 140 and 150. If we must 
rotate the part of the shape N times to 
produce a closed figure, then the angles 
through which we must rotate it are 
multiples of 360/N. Having construct- 
ed the tile in a LCS, it may be easily 
translated to the proper positions and 
plotted on the screen. 

Introducing the extra step of putting 
a tile together by rotation gives us a way 
to deform the tiles. Conceptually, 
deforming a tile is rather simple. Just 
take each side of the tile in turn, keep- 
ing the end points stationary, move the 
midpoint alternately in toward the 
center or out away from the center one 
unit at a time. The problem is in deter- 
mining where to move the midpoint to. 
Tliat is, given the coordinates of the end 
points, what are the coordinates of the 
point one, two, or three units closer to, 
or farther from the tile's center than the 
line's midpoint? If the line happens to 



be horizontal or vertical, then there is 
no problem. For example, a horizontal 
line's midpoint has the same y- 
coordinate as its end points. It has an 
x-coordinate equal to the average of the 
x-coordinates of the ends. Moving the 
midpoint toward or away from the 
center is a matter of moving it up or 
down. That is, the x-coordinate stays the 
same and the y-coordinate increases or 
decreases by one. If the line is diagonal 
we can still find the midpoint easily 
enough. However, moving it is the hard 
part, as the distance and direction of 
movement depend entirely on the incli- 
nation of the line segment. 

It would be much easier for the pur- 
poses of this exercise if we could make 
each side horizontal long enough to de- 
form it and then put it back where it be- 
longs. Fortunately, we already have the 
tools available to do just that — local 
coordinates and rotation. In mathemat- 
ical terms we want to: 

• Translate each line segment to the 
origin. 




• Rotate it onto the positive x-axis. 




• Rotate and translate it back into 
position. 




• Deform it as explained above. 



For us the procedure is as follows: 

1. Take each of the defined sides in 
turn. Pick one end point and call it XI, 
Yl. Call the other end X2, Y2. 

2. If we shift the origin of the LCS to 
the point at XI, Yl then the other point 
will have the coordinates (X2-X1), 
(Y2-Y1). 

3. Find the inclination of the line or the 
angle theta which it makes with the x- 
axis. If the line is vertical, then 
THETA = 90. If the line slopes towards 
the right (x2>xl), then THETA = 
ARCTAN ((Y2-Y1)/(X2-X1)). If the Ime 
slopes towards the left (X2<X1), then 
THETA = 180 + ARCTAN((Y2-Y1)/(X- 
2-Xl)). 

4. Rotate both end points, in terms of 
their coordinates relative to the first 
point, through this angle. The point 0,0 
will not move, of course, but the other 
point should now have a y-coordinate 
of 0, meaning the line is now lying 
horizontally on the x-axis. 

5. Finding and deforming the midpoint 
is now trivial. Its x-coordinate will be 
half the length and its y-coordinate plus 
or minus 1, 2, 3, etc. 

6. Now all we need do is move the 
deformed line back where it belongs. 
This is just a matter of rotating through 
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an angle Theta and then adding XI, Yl 
to the coordinates of each point. 

A moment's consideration will con- 
vince you that we will get back the origi- 
nal coordinates of our line plus the ro- 
tated and translated coordinates of the 
midpoint. By design, we will make all 
of these calculations once. Only for the 
sides of the tiles which are actually de- 
fined and only for the first tile of a row. 
The remainder of the first tile and all 
the other tiles in that row are derived 
from the defined sides by rotation and 
shifting as usual. 

The program in Listing 2 differs from 
our previous tiling programs by keep- 



ing the coorduiate values of the vertices 
in an array. Two arrays are maintained. 
The first stores the original vertex coor- 
dinates. The second, larger one, holds 
the coordinates of the deformed tile. 
The data necessary for drawing the 
tiles is given in lines 140 and 150. This 
means that to change the shape of your 
basic tile you need only change one or 
two program lines. In fact, it turns out 
that you don't have to change the tile 
shape in order to change the design 
drawn by the computer. Try specifying 
the diamond tile by two vertices and 
four rotations: 



140 DATA 2, 4 
150 DATA 0, -8, 8, 







rather than by three vertices and two ro- 
tations. When the number of vertices is 
odd, line 850 will flex the sides alter- 
nately "in" or "out." Wlien the num- 
ber of vertices specified is even, all sides 
will be flexed "in." 

It is evident that changing the tiling 
produced by the second program is a 
simple task. Because of tlus the pro- 
gram is great for experimentation! 
Some suggestions are to try square, rec- 
tangular, or hexagonal tiles and change 
the type of deformations used. 
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REM ROTATIONAL TE55ELATI0M 

REM BY ALLAN H005E AND MARIAN LOREN 

REM 

REM K««« INITIALIZE SYSTEM WHHf 

REM 

GRAPHICS 24: COLOR 1 

DEG :A=e:B=e 

DATA 8,0,17.32,-18,34,64,8,17.32,10 

e 

I GOTO 450 

) REM 

I REM WW* ROTATION SUBROUTINE »»K» 

I REM 

I XPRIME=X«COS CTHETA) -Y»SIN tTHETAJ 

I YPRIME=X»SIN CTHETA) +Y»C05 tTHETAJ 

I SCRNX=16e+XPRIME 

I SCRNY=96-YPRIME 

I RETURN 

I REM »K*» END ROTATION SUBROUTINE » 

I REM 

I REM **** SET TRANSLATION DISTANCES 

IR SECOND ROM mum 

I A=17. 32 :B=ie: RETURN 

I A=e:B=2e. 32; RETURN 

I A=-17. 32 :B=10: RETURN 

I A=-17. 32 :B=-10: RETURN 

I A=8:B=-2e.32:RETURN 

I A=i7. 32 :B=-10: RETURN 

I REM **»» SET TRANSLATION DISTANCES 

R THIRD ROM mHB( 

I A=34. 64 :B=e: RETURN 

A=34 . 64 : B=28 : RETURN 

A=17 . 32 : B=30 : RETURN 

A=e:B=4e:RETURN 

A=-17 . 32 : B=30 : RETURN 

A=-34 . 64 : B=20 : RETURN 

A=-34 . 64 : B=0 : RETURN 

A=-34 . 64 : B=-20 : RETURN 

A=-17 . 32 : B=-30 : RETURN 

A=e:B=-4e: RETURN 

A=17 . 32 : B=-30 ; RETURN 

A=34 . 64 : B=-20 : RETURN 

REN 

REM «*»» PLOT THE FIRST ROM »«»» 

REM 

FOR THETA=0 TO 360 STEP 60 

READ X,Y:GOSUB 140:PL0T SCRNX,SCRN 



QK 480 READ X,y;GOSUB 140:DRAHTO SCRNX.SC 

RNY 
QM 490 READ X,Y:GOSUB 140:DRAHTO SCRNX,SC 

RNY 
PV 500 READ X,Y:GOSUB 140:DRAMTO SCRNX,SC 

RNY 
TJ 510 RESTORE 90 
TN 520 NEXT THETA 
QM 530 REM 

ZE 540 REM tm*it PLOT THE SECOND ROM **** 
RA 550 REM 

WB 560 FOR THETA=0 TO 360 STEP 68 
MS 570 FOR J=l TO 2 
QU 580 1=1+1 
CA 590 ON I GOSUB 280,238,230,248,240,258 

,250,260,260,270,270,280 
TI 600 RESTORE 90 
QB 610 READ X,Y:GOSUB 14e:PL0T SCRNX+A,SC 

RNY-B 
CN 620 READ X,Y: GOSUB 148 : DRAHTO SCRNX+A, 

SCRNY~B 
CP 630 READ X,Y: GOSUB 148 : DRAHTO SCRNX+A, 

SCRNV~B 
CR 648 READ X,Y:GOSUB 148:DRAHT0 SCRNX+A, 

SCRNY~B 
CT 658 READ X,Y:GDSUB 148:DRAMT0 SCRNX+A, 

SCRNY-B 
GS 668 NEXT J 
TY 670 NEXT THETA 
FX 680 1=0 
RJ 690 REM 

NH 708 REM *H** PLOT THE THIRD RDM *HH«f 
QU 710 REM 

VU 720 FOR THETA=0 TO 368 STEP 68 
NC 738 FOR J=l TO 3 
QO 740 1=1+1 

QE 758 ON I GOSUB 418,300,310,310,328,330 
,330,348,358,358,360,370,370,380,390,3 
90,408,418 
TV 760 RESTORE 98 
QO 778 READ X,Y:G0SUB 140:PL0T SCRNX+A,SC 

RNY-B 
DA 788 READ X,Y:GOSUB 148:DRAMT0 SCRNX+A, 

SCRNV^B 
DC 798 READ X,Y: GOSUB 140 : DRAMTO SCRNX+A, 

SCRNY-B 
CL 888 READ X,Y:GOSUB 148:DRAHT0 SCRNX+A, 

SCRHV-B 
CN 810 READ X,Y:GDSUB 140:DRAMTO SCRNX+A, 

5CRMY~B 
GN 820 NEXT J 
TS 830 NEXT THETA 
RB 840 REM 

MK 850 REM «W(» SCREEN DUMP iHHW 
RF 860 REN 

MZ 870 DIM GRAF$(2001 
RS 875 GOSUB 1088 
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AC 888 GRAF$(1}=CHR$C81 :GRAF$C2e8)=CHR$Ce 

} :GRAF$C21=GRAF$ 
MO 898 LPRINT CHR$(27} ; CHR$ (651 ; CHR$ C8} 
GR 988 SCRNHEM=PEEK(88}+PEEKi:891«256 
LU 918 HEML0C=5CRNMEM+4eKi91 
TF 928 HIBYTE=IKTtADRtGRAF$J(^256J 
EM 938 LeBYTE=AI>RtGRAF$)-HIBYTE»256 
EP 948 POKE 283,L0BYTE:P0KE 284,HIBYTE 
Ad 958 FOR SCRMCOL=MEMLOC TO MEHLOC+39 
CL 968 DUMP=USR(i536,SCRNC0L) 
EH 978 LPRINT CHR$ C271 ; CHR$ (75) ; CHR$ (2881 

;CHR$(8);GRAF$ 
KB 988 NEXT SCRNCOL 
00 998 END 

JE 1888 RESTORE 1848 
HD 1818 FOR K=8 TO 43 
BY 1828 READ ML: POKE 1538+K,ML 
FU 1838 NEXT K 
NZ 1840 DATA 184,184,141,15,6,184,141,14, 

6,168,4,162,192,173,8,8,202,248,24 
EF 1858 DATA 145,283,280,216,173,14,6,56, 

233,40,141,14,6 
ZX 1060 DATA 144,3,76,13,6,206,15,6,76,13 

,6,96 
AU 1878 RETURN 

I isxzirt^ '2.. 



5S 18 REM »*«» E5CHER VERSION 5 XKXX 

NU 20 REM BY ALLAN MOOSE AND MARIAN LOREN 

Z 
BB 48 REM 
NI 58 GOTO 140 

FM 60 REM ««K# ROTATION SUBROUTINE K»»K 
BE 78 REM 

MN 88 XPRIME=X»C05CTHETA)-Y»SINtTHETA) 
IL 90 YPRIME=X»5INCTHETA)+Y»C0StTHETAJ 
YX 180 RETURN 
QO 110 REM 
XK 120 REM *»»» INITIALIZE SYSTEM, UARIAB 

LE5, ARRAYS «*»» 
OS 138 REM 
DL 140 DATA 3,2 
BD 150 DATA 0,-8,8,0,0,8 
NT 160 GRAPHICS 24:DEG :COLOR 1 
IJ 178 READ NUMUERTS,NUMROTS 
NP 186 DIM ARRAY1(NUMUERTS,21,ARRAY2(NUMU 

ERTS»2-1,2) 
LE 190 THETAINC=358/NUMR0TS 
HN 200 FOR UERTEX=1 TO NUMVERTS 
QV 210 READ XCOORD, YCOORD 
lU 228 ARRAY1(UERTEX,1}=XCD0RD:ARRAY1(UER 

TEX,2)=YC00RD 
ZX 238 NEXT VERTEX 
SP 248 REM «»»» DETERMINE HEIGHT AND WIDT 

H OF TILE «Bf» 
HX 258 FOR UERTEX=1 TO NUMUERTS 
CD 260 IF ABSCARRAY1(UERTEX,1})>XMAX THEN 

XMAX=ABSCARRAY1 (VERTEX, 11} 
II 270 IF ABS(ARRAY1 (VERTEX, 2} )>YMAX THEN 

YMAX=ABS(ARRAY1 (VERTEX, 2)1 
AH 280 NEXT VERTEX 

BJ 290 HEIGHT=2»YMAX:WIDTH=2»XMAX 
SI 388 MAXC0LS=INT{320/'MIDTHJ-1 
UJ 310 MAXR0WS=INT(192/HEIGHT)-1 
SR 320 INITIALX=XMAX+5:INITIALY=YMAX+5 
QU 330 REM 
YF 340 REM *«HW PLOT THE FIRST ROM OF TIL 

CC ^J mj <J <J 

Q J A n R n 

QY 350 REM 

HD 360 FOR CDL=1 TO MAXCOLS 

UP 370 FOR THETA=0 TO 360 STEP THETAINC 

IE 380 FOR VERTEX=1 TO NUMVERTS 

ZU 390 X=ARRAY1 (VERTEX, 1} :Y=ARRAY1 (VERTEX 

i2) 
VO 400 GOSUB 80 
LV 410 SCRNX=INITIALX+(C0L-1J»MIDTH+XPRIM 

E 
RM 420 SCRNY=INITIALY-YPRIME 
KH 430 IF VERTEX=1 THEN PLOT SCRNX,SCRNY: 

GOTO 450 
PL 440 DRAMTO SCRNX,SCRNY 
AD 450 NEXT VERTEX 
TU 460 NEXT THETA 
UN 470 NEXT COL 
RF 480 REM 



LY 490 REM WHt» DRAM SUCCEEDING ROMS OF T 

ILES »««* 
QQ 500 REM 

NA 510 FOR R0M=2 TO MAXROMS 
TQ 520 Y0FFSET=Y0FFSET+1 
UU 530 GOSUB 730 
HB 540 FOR C0L=1 TO MAXCOLS 
UN 550 FOR THETA=0 TO 360 STEP THETAINC 
SP 560 FOR VERTEX=1 TO NUMVERTS»2-1 
BJ 570 X=ARRAY2 (VERTEX, IJ :Y=ARRAY2 (VERTEX 

HF 580 GOSUB 80 

MM 590 SCRNX=INITIALX+(C0L-1)»MIDTH+XPRIM 

EQ 600 SCRHY=INITIALY+(R0M-1)»HEIGHT-YPRI 

ME 
PI 610 IF VERTEX=1 THEN PLOT SCRNX,SCRNY: 

GOTO 660 
YA 620 REM CLIPPING ROUTINE 
KP 630 IF SCRNX<0 OR SCRNX>319 THEN GOTO 

940 
JU 640 IF SCRHY<0 OR SCRNY>191 THEN GOTO 

940 
PP 650 DRAMTO SCRNX,SCRNY 
AH 660 NEXT VERTEX 
TY 670 NEXT THETA 
UR 680 NEXT COL 
FP 690 NEXT ROM 
QG 700 GOTO 940 
QU 710 REM 
GL 720 REM «*»• SUBROUTINE TO CREATE AN A 

RRAY OF DEFORMED TILES «*«* 
QY 730 REM 

HQ 740 FOR 1=1 TO HUMVERTS-1 
TP 750 X1=ARRAY1(I,1) :ARRAY2(2»I-1,1)=ARR 

AY1(I,1) 

MP 760 X2=ARRAY1(I+1,1J 

XP 770 Y1=ARRAY1(I,2) !ARRAY2(2»I-1,2)=ARR 

AY1(I,2) 

NR 788 Y2=ARRAY1(I+1,2) 

CH 790 X=X2-Xl:Y=Y2-Yl 

UE 880 IF X=0 THEN THETA= (-1J»SGN (Y)«90 : G 

OTO 850 

QO 810 THETA=ATN(Y/'XJ 

OA 828 IF X<0 THEN THETA=188+THETA 

FM 838 THETA=-THETA:REM ROTATE TOMARD X-A 

XIS 

HA 840 GOSUB 80 

XL 850 X=XPRIME/2:Y=Y0FFSET»(-1)ACI+1J 

LX 860 THETA=-THETA!REM ROTATE BACK INTO 

POSITION 
HG 878 GOSUB 88 
FD 888 ARRAY2(2»I,1I=XPRIME+X1:ARRAY2(2»I 

,2)=YPRIME+Y1 
GQ 890 NEXT I 

IV 900 REM »»»* COMPLETE ARRAY2 »»*» 
SU 910 FOR J=l TO 2:ARRAY2(2»NUMVERTS-1,J 

1=ARRAY1(NUMVERTS,J} :NEXT J 
ZJ 920 RETURN 

MH 930 REM »»»» SCREEN DUMP «»»» 
UY 940 GOSUB 1080 
MM 950 DIM GRAFS (2001 
ZZ 960 GRAFS(1)=CHR$(0} :GRAF$(20ei=CHR$(0 

) :GRAF$(2)=GRAF$ 
ML 970 LPRINT CHRS (27J ; CHRS (65) ; CHR$ (8) 
HH 988 SCRNMEM=PEEK(88)+PEEK(89)»256 
MK 998 MEMLOC=SCRNMEM+40»191 
NZ 1000 HIBYTE=INT(ADR(GRAF$)/256) 
FM 1010 L0BYTE=ADR(6RAF$)-HIBYTE»255 
MY 1020 POKE 203, LOBYTE: POKE 204,HIBYTE 
MP 1030 FOR SCRNCOL=MEMLOC TO MEMLOC+39 
PM 1040 DUMP=USR (1536, SCRNCOL) 
RG 1050 LPRINT CHR$ (27) ; CHR$ (75) J CHR$ (208 

);CHR$(8) ;GRAF$ 
AK 1868 NEXT SCRNCOL 
FI 1070 END 
JL 1080 RESTORE 1120 
IB 1090 FOR K=0 TO 43 
BU 1100 READ ml: POKE 1536+K,ML 
FQ 1110 NEXT K 
NV 1120 DATA 104,104,141,15,6,104,141,14, 

6,160,4,162,192,173,0,0,202,240,24 
EB 1130 DATA 145,203,200,216,173,14,6,56, 

233,40,141,14,6 
ZT 1140 DATA 144,3,76,13,6,206,15,6,76,13 

,6,96 
AQ 1150 RETURN 
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t finally happened! 

Sooner or later, I 
knew it would. It was in- 
evitable that my lOSO 
disk drive would break 
down. Naturally, it quits 
on me between terms of 
my summer course (I'm 
taking COBOI^why, I'm 
not sure), when I'm a lit- 
tle short of money. And 
of course it conks out in 
the middle of various 
programming projects- 
most, I might add, in- 
volve disk I/O. Well, I re- 
mained undaunted in 
the heinous face of dis- 
aster, and thanks to the 
help of a friend (I'd name 
my friend here, but he'd 
no doubt sue me for libel 
or something), I complet- 
ed one of these projects. 
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The program is called Boot-Directory. 
You'll find the BASIC code in Listing 1 
and the MAC/65 source code in Listing 2. 
It works on any single-density Atari DOS 
2.0 or 2.5 disk, and takes up no space at 
all— it's stored in the currently unused 
third boot sector. Just type in and run 
Listing 1, insert the disk you want modi- 
fied, hit RETURN, and voilal The Boot- 
Directory machine-language routine will 
load and run automatically every time you 
boot that disk. Re-run the BASIC pro- 
gram to modify other disks. To remove 
Boot-Directory, just go to DOS and use 
the Write DOS Files option. 

<13<:r>in,^ < > r~» ? 

Oh, maybe I ought to explain exactly 
what Boot-Directory is and how to use 
it. When you boot a DOS 2.0/2.5 disk, the 
three boot sectors (1-3) are loaded into 
memory by the operating system. Then 



control is turned over to the boot routine 
beginning at the seventh byte from the 
first sector. From here, a short machine- 
language program loads the File Manager 
System contained in the DOS. SYS file into 
memory, and control is reverted back to 
the operating system. What we'll do is 
cleverly insert a jump instruction to the 
code beginning at the third sector (Boot- 
Directory) at the seventh byte in the first 
sector, then exit to $0714, the start of the 
DOS boot-load routine. For more info , 
read Inside Atardos by Bill Wilkinson. 



we know how Boot- 
Directory gets control, but what does it 
do? Simple. It lists all the files from the 
directory; it starts at sector 361 and prints 
the names of all undeleted, existing files. 
If you hold down the SELECT key. 




Boot-Directory will, upon completion, 
loop until you hit RESET. Thus, if you're 
just looking for a file, insert a disk while 
holding down SELECT and wait until the 
directory is completely listed. If you do 
not see the file you want, insert another 
disk and press RESET. You could, of 
course, reboot by powering-down, but you 
never know when the computer might not 
want to power-up! (Remind me to tell you 
about the time my computer went on the 
blink. . . .) The entire Boot-Directory 
routine is limited to one sector, just 128 
bytes. Not much space for super-neato 
features, I'm afraid. But, nevertheless, as 
you can see from examining Listing 2, I 
did manage— just barely — to squeeze the 
entire code into sector 3. If you modify 
the MAC/65 source code, don't forget the 
128-byte maximum size! As for me, I 
won't be modifying anything for a while. 
Anyone know a place that repairs disk 
drives cheap? 



JO le REM ** BOOT-DIRECTORY Maker »* 

GX 11 REM bv Bill Bodenstein 

JA 12 REM COPYRIGHT 1988 BY AMALOG COMPUT 

ING 
BO 26 DIM XSt25),fl5ClJ IFOR K=l TO 25: READ 

A : X$ (X, XI =CHR$ (AJ : NEXT X 
YI 24 IF PEEK (1799) =20 AND PEEKC1808J=7 T 

HEN 30 
HS 26 ? "Atari File Manager SysteH not in 

■■:? "neMor!;. Reboot witK DOS 2.0 or 2. 

5.": STOP 
UD 30 ? " «*» BOOT-DIRECTORY Maker *** 

11.9 it "This prograM will write a shor 

t M/1" 
G5 40 ? "routine CBOOT-DIRECTORYJ to sect 

or 3":? "which will list all files nahi 

es in"!? "the directory at boot-up." 
DP 59 ? !? "If just searching for a file, 
hold":? "down <SELECT> until BOOT-DIR 

ECTORY is" 
UX 60 ? "executed, insert a new disk, and 

■'!? "press <SYSTEM RESET> to reboot di 

Sk . " 
EU 70 RESTORE 500: SUM=e : FOR X=1536 TO 153 

6+124: READ N : SUM=5UM+N : POKE X,N:NEXT X 
IC 88 READ CHCKSUM:IF CHCKSUMOSUM THEM ? 

"BAD DATA!":STOP 
LN 108 ? :? "Insert a diskette to Modify. 



";? "HIT <RETURN>"; :INPUT AS 
Vk 110 CMD=82:BUFF=(PEEKtl5J+lH*255:SdCT= 

1 : X=USR CADR CXS) , CMD, BUFF , SECT) 
BM 120 IF PEEKCBUFF+7)=e AND PEEKCBUFF+8) 

=8 THEN ? "DISK ALREADY MODIFIED !": GOT 

100 
RB 130 IF PEEKtBUFF+7)<>20 OH PEEKtBUFF+8 

)<>7 THEN ? "NOT A DOS 2.X DISK!":GOTO 
100 
FD 140 POKE 1799,e:P0KE 1800,8:? "Re-writ 

ing DOS. SYS to disk. . .":OPEN ttl,8,0,"D 

:D0S.SY5":CL0SE »1 
SE 150 ? "Writing new sector 3...":CMD=87 

: BUFF=1536 : SECT=3 : X=USR (ADR (XS) , CMD, BU 

FF,SECT) 
EC 160 ? "Disk now contains BOOT-DIRECTOR 

Y.":POKE 1799,20:P0KE 180O,7:GOTO 100 
BG 400 DATA 104,104,104,141,2,3,104,141,5 

,3,104,141,4,3,104,141,11,3,104,141,18 

,3,76,83,228 
CT 500 DATA 169,104,141,10,3,169,1,141,11 

,3,169,0,141,4,3,133,206 
QL 510 DATA 169,6,141,5,3,133,207,133,84, 

238,10,3,173,10,3,201,113 
MG 520 DATA 176,65,169,82,141,2,3,32,83,2 

28,162,0,161,206,240,51,48,36 
BZ 530 DATA 160,5,169,11,157,72,3,196,85, 

176,4,160,23,169,9,132,85 
QE 540 DATA 157,66,3,165,266,24,105,5,157 

,68,3,165,207,157,69,3,32,85,228 
UR 550 DATA 165,206,24,105,16,41,127,133, 

206,240,183,208,199 
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IX 568 oara 173,31,288,201,5,249,254,169, 

0,133,84,169,20,141,7,7 
QR 570 DATA 169,7,141,8,7,76,28,7 
ME 580 DflTft 12577 

I — istin,^ :2. : 

18 XXMKKKKKKKKICKMKKKKKKICKXXKKKKKKKKKIC 

20 »» BOOT-DIRECTORY ** 

30 ** by Bill Bodenstein ** 

40 ** COPYRIGHT 1988 H* 

45 iHt BY ANAL8G COMPUTING ** 

58 KKKKKKKKKKKKMKMMKICICKKKKMKKKKKMXMKK 

68 ; 

78 ;This prograM creates a directory 

88 ; lister which is executed when 

98 ;disk is booted. 

8188 

8118 

8128 ; EQUATES 

8138 

0148 CURSORROM = $54 

0158 CUR50RC8L = $55 

8168 CONSOLEPRESS = $D81F 

8178 SELECTKEY = 5 

8188 ; 

8198 DIR5ECT = $8159 

8208 DIRBUFF = $8688 

8218 FENTRYPTR = $CE 

8228 ENTRYLENGTH = 16 

0230 ; 

8248 FNPLACE = 5 

8258 PUTRECORD = 9 

8268 PUTCHARS = 11 

8270 ICCOM = $0342 

0280 ICBADR = $0344 

0290 ICBLEN = $0348 

0380 CIS = $E456 

8318 ; 

8328 READ = 82 

0338 DCBCMD = $8302 

0340 DCBBUF = $0304 

8358 DCB5EC = $838A 

8368 SIO = $E453 

0370 ; 

0388 C8NTB00T = $8714 ;start Of boot 

record routine which loads 

D05.5YS into Menory. 



*= $8800 

The following code is stored in 
the 3rd boot sector and booted 
into nenory froM $888 to $87F. 



5et data control block to read 
sectors into directory buffer 
and set file entry pointer to 
point to the first file entry 
in directory. 



8398 

0400 

8418 

8428 

8438 

8440 

0450 

0460 

8478 

8488 

8498 

8500 

0510 

8528 

8538 

0540 

0550 SETUPDCB 

0560 LDA U <DIR5ECT-1 

8570 STA DCBSEC 

8588 LDA « >DIRSECT 

8598 STA DCB5EC+1 

8688 LDA U <DIRBUFF 

8618 STA DCBBUF 

0620 STA FENTRYPTR 

0630 LDA U >DIRBUFF 

0640 STA DCBBUF+1 

8658 STA FENTRYPTR+1 

8668 SETRON STA CURSORROM ; Start at 

0670 } row 6, avoiding silly stuff 

8688 ; LOADWIT puts on the screen. 

8698 ; 

8788 ; 

8718 ;Skip to next sector and check 

8728 ;if last sector in directory. 

8738 ; 

8748 READINSECTOR 

0750 INC DCBSEC 

0760 LDA DCBSEC 

0770 CMP « <DIRSECT+8 

8780 BC5 EXITBOOTDIR 



8798 

8888 

8818 

8828 

8830 

8848 

8858 

8868 

8878 

0880 

0898 

0900 

8910 

8928 

8938 

8948 

8958 

8968 

8978 

8988 

8998 

1880 

1010 

1020 

1030 

1040 

1050 

1868 

1878 

1888 

1898 

1108 

1110 

1120 

1130 

1140 

1150 

1160 

1178 

1180 

1190 

1200 

1210 

1220 

1238 

1248 

1258 

1268 

1270 

1280 

1290 

1308 

1318 

1320 

1330 

1348 

1358 

1368 

1378 

1388 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1478 

1488 

1490 

1580 

1510 

1520 

1538 

1548 

1558 

1568 

1570 

1588 

1598 

1608 

1618 

1628 

1630 

1640 

1658 



LDA ttREAD 
STA DCBCMD 
JSR SIO 



Check Status flag of entry; 
=8 if no nore files 
>=128 if deleted file 

CHECKENTRY 
LDX ttO 

LDA CFENTRYPTR,XJ 
BEQ EXITBOOTDIR 
BMI NEXTENTRY 



Indent file naHe and put two on 
each line. 

MHERECURSOR? 

LDY «5 

LDA ttPUTCHARS 

STA ICBLEN, X ; f naMe=ll chars 

CPY CURSORCOL 

BCS SETPOSITION 

LDY tt23 

LDA ttPUTRECORD ; causes a 
; carriage return after name. 
SETPOSITION STY CURSORCOL 



Tell the screen editor to print 
the 11-character file nane frow 
the file entry. 

PRINTFN 

STA ICCOM, X ;xreg=0 

LDA FENTRYPTR 

CLC 

ADC ttFNPLACE 

STA ICBADR, X 

LDA FENTRYPTR+1 

STA ICBADR+1,X 

JSR CIO 



Skip to next 16-byte entry. 

NEXTENTRY 

LDA FENTRYPTR 

CLC 

ADC »ENTRYLENGTH 

AND ttl27 

STA FENTRYPTR 

BEQ READINSECTOR 

BNE CHECKENTRY 



EXITBOOTDIR 

;lf <SELECT> pressed, loop until 
;<SYSTEM RESET> pressed. 

SELECTPRESSED? 

LDA CONSOLEPRESS 

CMP ttSELECTKEY 
LOOPFOREVEH BEQ LOOPFOREUER 



Fix patch nade to sector l: 

JMP $8e8=>JMP $714 
and HOve cursor to top line 
tso LOADKIT will be happy). 

RESETCURSOR 

LDA no 

STA CURSORROM 

RESETJMP 

LDA tt <CONTBOOT 
STA $0707 
LDA tt >CONTBOOT 
STA $0788 

;Return and let FMS take over. 

GOBOOTER JMP CONTBOOT 



n 
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n ANALOG'S March, 
I98J issue, I cov- 
ered a fledaling con- 
sumer telecommunica- 
tions service, started by 
the General Electric In- 
formation Services Com- 
pany (GEISCO), and dis- 
cussed its intentions for 
the consumer telecom- 
munications market- 
place. Although it hasn't 
been all that long since 
we took that glance at 
GEnie (General Electric 
Network for information 
Exchange), a great deal 
has taken place under its 
roof* 
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The GEnie system came about as an atr 
tempt by GEISCO to utilize their existing 
worldwide telecommunications net- 
work — initially dedicated to their business 
dealings — during its non-peak hours and 
generate additional income with it. When 
it first came online to consumei-s, its offer- 
ings were somewhat sparse. Taking a look 
at it now, you'll see that they've come a 
long way. 



Since their introduction in 1985 GEnie 
has struck at the core of similar services 
with their bargain cost ($5.00 per hour 
at their off-prune, evening time rate) and 
the wealth of services they offer. They 
were also the first to offer free file upload- 
ing to their "software libraries" (a move 
that started as a test, but was so success- 
ful in boosting their public domain acqui- 
sitions that tliey've made it a standard fea- 
ture) and no additional surcharge for 
1200-baud service. 

Even with all these positive features in 
their comer, the menus were pretty thin 
at the beginning of GEnie's existence. At 
that point, the system was limited to a 
scattering of "Roundtables" or RTs (the 



name GEnie uses to describe what many 
services call Special Interest Groups or 
SIGs) for the more popular computer 
brands, and basics like Electronic Mail, 
a Real-Time Conferencing (RTC) area, 
some online games and a section for 
computer-related columns and news. Dur- 
ing the period between our last visit and 
now, they've done quite a bit to build up 
and enhance their offerings to bring the 
system up to what you could consider a 
full-service telecommunications network. 

- - - v^5s.i-i<di r->j<=>>v.>^ 

Many of these additions and alterations 
have taken place to the satisfaction of 
Atari computer owners specifically. Tlie 
first noticable change is in the separation 
of 8-bit and ST areas, which are now two 
distinct sections. At any prompt, you can 
type "AIARI8" for the 8-bit area or "ST" 
to reach the 16-bit SIG. Each SIG sup- 
ports their respective computer handily 
with bulletin boards for ongoing message 
threads, file-filled sofbvare libraries and 
a conference area for real-time chats. 

To keep the personal touch, there are 
also weekly meetings scheduled — Wed- 
nesday night for the ST users and Thurs- 
day night for 8-bitters. User attendance 
for these events is high with dozens of 
people filtering through each get-togedier 
on a good night. You'll find a strong cross 
section of Atari users, discussing new soft- 
ware and hardware, passing tips and chat- 
ting with Atari Corp. employees. 

For sofWare buyers a reassuring aspect 
of these meetings is the frequent appear- 
ance of developers and manufacturers' 
representatives from such companies as 
Intersect (makers of Interlink, QMI, 
Supra and FTL (prominent as the crea- 
tors of Dungeon Master and Oids), among 
many others. The ability to go tete-a-tete 
with companies to get the latest product 
information and assistance is invaluable to 
Atarists. Occasional formal conferences 
are also scheduled for users to ask ques- 
tions of industry members. Recent con- 
ferences have had FTL's president, Wayne 
Holder, and Atari's Sam Tramiel fielding 
queries from the gallery. 

This brings us to another major change 
you'll discover, which is the active involve- 
ment of Atari Corp. personnel in the 
operation of these areas. Neil Harris has 
taken over the Sysop (System Operator) 
reins, a move that makes it easier for 
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GEnie users to get the straight scoop on 
Atari products and viewpoints. 

To fiuther the embracing of GEnie as 
their official home. Atari offers a de- 
velopers' SIG, where questions and con- 
cerns of programmers can be tackled by 
the people who know best. 

r~^ St. i~t t-M f s». <=^ — 

Another attraction is Michlron's Round- 
table (type MICHTRON from any 
prompt). As a strongly dedicated de- 
veloper and distributor of ST software, 
Michtron is showing the focus of their 
support by linking with users to answer 
questions, pass on new product info (in 
the way of press releases and demo files 
within their software library) and as a 
foUow-up on the sale of their products. 
Much of the latter covers the growing GFA 
line of software, particularly GFA BASIC. 
Many ST users are developing commer- 
cial software with GE4 BASIC, and the 
Michtron RT lets them make contact with 
others for help. 

Data Pacific, makers of the Magic Sac, 
a Macintosh emulation hardware/ 
software combination for the ST also has 
a section on GEnie. Their new RT is a 
good source for compatible PD software, 
as well as the latest news on updates and 
other add-ons. 

.^^cd cd i tz i <z> n ^ 

Outside the Atari-specific focus, GEnie 
has concerted their efforts toward build- 
ing a well-rounded network. From their 
relatively bare bones start, they've con- 
sistently added to the menus to provide 
travel and shopping services, more oidine 
games and a wider variety of Roundtables 
to get people with similar interests 
together to discuss different computer 
brands and hobbies, and help manufac- 
turers with product support. Some of 
these newer groups cater to such diverse 
subjects as scuba diving, photography 
(with a marketing service for profession- 
als), taxes, working at home and writing. 

The power of online services is expand- 
ing greatly, sliding away from just being 
a bulletin board or gathering place. Some 
of the offerings now provide admittance 
to functions that previously were accessi- 
ble only to professionals. 

One of these services, EAASY SABRE 



(American Airlines' own network), opens 
the airlines' reservations networks to 
telecomputing enthusiasts. While taking 
a bit of getting used to, these menu-driven 
ser^^ces are being employed by many fre- 
quent travelers — particularly those who 
carry portable computers — enabling 
them to get quick transportation infoi-ma- 
tion from any phone and to slay on top 
of the volatile scheduling that flight traffic 
is governed by. 

There are many other support groups 
and entertainment choices avaUable, too 
many to cover thoroughly here. You can 
access the day's news headlines, send a 
paper mail letter, peruse movie and music 
reviews or even check the financial world 
through a gateway to the Dow Jones net- 
work. Some of these selections are sur- 
charged, as is the case with the Dow Jones 
link, but you are told of that ahead of 
time: a "$" will precede any surcharged 
menu choice. 

For recreation, online games are avail- 
able. Some are single-player games and 
others, like Chess, are meant for head-to- 
head or group participation. One of the 
contests I tried, though it is still a little 
buggy, is an mteractive Blackjack game. 
Factory Programming, programmers of 
some of Michtron's ST offerings, is creat- 
ing software modules for different com- 
puter brands that assist in providing a 
graphics foundation to the Blackjack 
game. 

In the ST version, you can move your 
mouse around to pick what table and seat 
to sit at, choose how to play your cards 
and how much to bet, all the while keep- 
ing up a conversation with any other play- 
ers at the same table. Users without a 
compatible module can play a text version 

Ir-»sicdl^ th^ 

One of my only complaints is directed 
at the surcharge for 2400 baud usage. 
Due to mass production and new integrat- 
ed circuitry, there are many companies 
now offering 2400 modems for reasona- 
ble prices, making this technology acces- 
sible to the average telecommunications 
enthusiast. GEnie tacks on $7.50 an hour 
to the regular rate for this feature, which 
doesn't seem to make any sense on the 
surface, as it's more than double the cost 
of 1200-baud access. 

As Bill Louden, GEnie's top man, ex- 



plains it: "Our 2400-baud price is the 
same as CompuServe's. The price is more 
a ftmction of its newness to the market: 
Costs of deployment are higher, and usage 
is quite low when compared to 1200 
baud. Given our already low, price struc- 
ture as well as the increased costs for this 
new technology, the argument 'twice the 
speed for twice the price' does not ad- 
dress all of the business cost issues. We 
are currently m over 60 cities with two 
2400 baud. I cannot state what oiu- ex- 
pansion plans are; but I will state that we 
expect major expansion over the next two 
years." 

Perhaps with that expansion, we can ex- 
pect a trimming of the associated rates. 
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There's no question that GEnie has kept 
on a strongly upward pace. That is 
demonstrated by the fact that they've be- 
come the second most popular consumer- 
oriented service in the U.S. behind Com- 
puServe (who claims a 400,000 user 
base), based on their 100,000 subscriber 
count. Looking aliead, they estimate that 
they add approximately 10,000 new users 
per month, which could bring them close 
to CompuServe's heels before too long. 
Also on the horizon. Louden figures to 
add more and more to GEnie's offerings: 
over 50 new products are slated for in- 
troduction during 1988. 

In our last visit, GEnie was offering a 
"test drive" of the system via a toll-free 
number, and, doubtlessly, this sampling 
of the menus and operation got them to 
the subscriber level they're at now. Un- 
fortunately it's no longer available, but 
they still offer an online sign-up, also by 
way of a free call. 

If you dial 1-800-638-8369 from your 
terminal software (set it up with half 
duplex or local echo on), type HHH once 
you achieve connection, then enter 
GENIE at the U#= prompt, you'll enter 
theii- sign-up area. At that time, you'll see 
a short advertisement of what GEnie 
offers, then be able to enter information 
for initiating an account of your own. 

The processing of the account was very 
quick when I first signed up; hopefully 
that's still the case. The initial sign-up 
costs $29.95. For that, you'll receive a 
copy of their new manual and two free 
hours of access time. 
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ight years ago 
CompuServe in- 
troduced its first Atari 
Special Interest Croup, 
which became known as 

SIG*ATARh SI6* ATARI 

was the pioneer, being 
the first national in- 
terest group devoted ex- 
clusively to Atari com- 



past few years, Com- 
puServe has grown to 
be the largest comput- 
er-information system 
available, having over 
400,000 subscribers and 
offering more than lOO 
services to computer 
owners, professionals 
and hobbyists of all 
kinds. 
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Today, six services are available on 
CompuServe exclusively for the support 
of Atari computers and Atari computer 
owners. The original SIG*ATARI has 
been split off into four separate Atari 
Special Interest Groups (known as "For- 
ums" on CompuSei-ve) and two online 
databases to meet the changing needs of 
the Atari market. The expanded Atari 
coverage on CompuServe allows users to 
get the most information possible on any 
subject relating to Atari computers. It 
makes no difference whether you are a 
fanatical 8-bit computer owner, a brand- 
new computer owner who just purchased 
an Atari ST, a part-time software de- 
veloper or just someone looking for help 
with a specific program, because Com- 
puServe's SIG*ATARI has a lot to offer 
you. A whole community of people who 
share your same interest in Atari com- 
puting is just a phone call away! 

CZ>r-ilir-»^ L_Js^i-s 

A CompuServe Forum is where peo- 
ple from all over the world gather elec- 
tronically to discuss and learn more 
about a common interest. In fact, you 
can tliink of a Forum as a users group 
that meets 24 hours a day, seven days 
a week. The Atari 8-bit and Atari 16-bit 
Forums were both set up for users of 
Atari computers to communicate, share 
information, exchange tips, download 
programs and meet new people all over 
the world. Each Forum offers a message 
board for discussions, an electronic con- 
ference area for real-time global com- 
munication, and an extensive collection 
of files available for you to do>4nriIoad. 

The Data Libraries available in both 
Forums have files for all different types 
of interests. To help organize files bet- 
ter, each CompuServe Forum provides 
up to 18 specific Data Libraries for 
different file types. With upload time 
free of comiect charges on CompuServe, 
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many members continue to regularly up- 
load their newest creations for other 
Forum members to share. 

Many Atari luminaries, includuig Bill 
Wilkinson, Steve Ahlstrom, Dan Moore, 
Tom Hudson, Keith Ledbetter, and 
more, continue to regularly visit both 
Forums to help answer questions and 
offer their knowledge to other Forum 
members. Many users feel embarrassed 
to ask what appears to them to be a 
"stupid" question. However, according 
to the Sysops, a stupid question has 
never been asked in the eight years smce 
SIG*ATARI's mception. 

"The friendly, helpful attitude of the 
entire membership base makes the new 
user comfortable and at home from the 
first time he or she signs on," says Dave 
Groves, an assistant Sysop of the Atari 
16-bil Fonun. "There is no problem too 
simple or too complex to get a soUd so- 
lution from the experts and other users, 
who between them have used almost ev- 
ery program ever written for an Atari 
computer." 

Participation is the key word. Accord- 
ing to Groves,"The user base consists of 
members who are at the forefront of the 
Atari Market. We have the opinion lead- 
ers of the Atari community, the end-user 
public and a group genuinely concerned 
about the future of the Atari market. 
Many of our users write Atari-oriented 
periodicals, are leaders in major Atari 
Users Groups and are retail dealers. On- 
line discussions generally lead to 
action." 

SIG* ATARI members also provide 
constructive feedback to software de- 
velopers and are very happy to lend a 
hand to other Forum members. For ex- 
ample, when Keith Ledbetter was ready 
to release his long-awaited 1 030 Ex- 
press version 3.0, he sought the help 
of SIG*ATARI members to assist him 
with beta testing the program. Forum 
members provided Ledbetter with 
detailed bug descriptions as well as 
offered many suggestions for the final 
release version. 

Any developers wishing to conduct a 
beta test online should contact the 
Sysops for more information. 

>=»vt;^t-i N/^ ^ n d <=» r- 
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In February 1988, the Atari Vendors 



Support Forum was lamiched. The sole 
purpose of tliis new Forum was to cre- 
ate and maintam a direct Unk between 
many top third-party software manufac- 
turers and their customers. Each par- 
ticipating vendor has his own message 
section which is used by the company 
and their customers to correspond with 
each other daily, a Data Library which 
offers product-help files, tutorials, 
patches and sometimes product updates, 
and an electronic conference room. 

Current participants of the Vendors 
Forum include ICD, Inc., Intersect Soft- 
ware, Michtron, Regent Software, QMI, 
Data Pacific, Avant-Garde and Atari Ex- 
plorer Magazine. By the time you read 
this, AISALOG and ST Log magazines 
will also have an official onhne support 
section in the Vendors Forum. Please 
note that other vendors maintam online 

"The friendly, helpful attitude of 



the entire membership base 
makes the new user comfortable 



and at home from the first time 



he or she signs on." 



support in the Atari 8- and 16-bit Fo- 
riuns as well. Ron Luks invites any ven- 
dors interested ui setting up an official 
online support section to send an 
EasyPlex message to him (his User ID 
is 76703,254). 

X^ t ^ r- i 
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Developing software for a complex 
machine such as the ST is no easy task. 
WTien a programmer undertakes a 
programming project — for fun or 
profit— he is mostly opening himself up 
for endless days of coding, more stress 
than anyone deserves and a great deal 
of hair loss (Ever wonder why program- 
mers grow their hair so long? They know 
they're going to lose 25% of it per 
programming project). However, when 
the final product is released, most will 



agree that their time was well spent. In 
addition, with a muiimal amount of psy- 
chotherapy, many of the side-effects of 
programming can also be relieved. 

If you are developing a program for 
the Atari ST— whether you are a profes- 
sional or first-lime programmer — the 
Atari Programmers and Developers Fo- 
rum on CompuServe can be a great as- 
set to you! Participants in the Developers 
Forum include the entire cross section 
of programmers and developers in the 
Atari commmiity. Professional progiam- 
mers use the Developers Forum to ex- 
change information, source code and 
tips with their colleagues. Amateur 
programmers will find a wealth of help- 
ful information to assist them in lurning 
the program that is in their mind to one 
that can be loaded into the computer. 
"The Atari Developers Forum offers 
different things to different people," 
says Charles McGiumiess, assistant Sysop 
of the Atari Developers Forum. "Soft- 
ware developers will find a chance to in- 
teract with each other and discuss 
methods and teclmiques for deahng viilh 
GEM and GEMDOS as well as every 
other aspect of the ST computer. For the 
amalem* programmer, the Developers 
Forum offers the opportunity to discuss 
things with the pros, as well as being able 
to take advantage of the large library of 
source code that is available in the De- 
velopers Forum." 

McGuinness adds that the Atari De- 
velopers Formn is the official site for ob- 
taining updates to the Atari Developers 
Kit. A message section and Data Library 
has been set up for registered developers 
only (those who purchase the Atari De- 
velopcrs Kit). Registered developers 
who do not currently have access to sec- 
tion 7 ("Registered Developers") of the 
Forum should contact Gary Gee at Atari 
(his CompuServe User ID is 
70007,2355) to gain admission. Once 
in. Developer Kit updates as well as 
other new development tools from Atari 
are readily available for you to 
download. 

"The Developers Forum's usefulness 
does not necessarily end when you are 
finished writing your program," Ron 
Luks, primary sysop of the CompuServe 
Atari Forums, adds. "In addition to get- 
ting help with programming and product 
marketing, special restricted areas are 
available to developers who wish to betp 
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test preliminary versions of their 
products. These sections are set up and 
restricted to a small group of people who 
the Developers request to be admitted. 
This enables the developer to lest and 
debug his software in the most efficient 
manner possible, and to limit the distri- 
bution of preproduction software." 

The Atari Programmers and De- 
velopers Forum offers something to ev- 
ery Atari programmer. The help you 
receive here can mean the difference be- 
tween forgetting or flnisliing your soft- 
ware product. And the Developers For- 
um is guaranteed to be more cost- 
effective than psychotherapy, so don't be 
shy about asking for help here! 



I — >^t:;^t>^s^:s < 
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In addition to the four Atari Forums, 
CompuServe also offers two online data- 
bases for Atari computer owners: Antic 
Online, the largest online magazine data- 
base available on CompuServe, and the 
Atari Users Network Database, which is 
a one-stop area for users to find out 
what's new in the various Atari Forums 
and to receive help and information on 
using the Forums. ATARINET's 
"What's new in SIG*ATARI" article is 
updated weekly and highlights new and 
noteworthy events in the four Atari For- 
ums. The Atari Users Network Database 
also provides a listing of upcoming 
scheduled conferences in SIG* ATARI, 
and Forum help and information files. 



I ^ss 3 $ $ 

CompuServe's standard daytime and 
nighttime rates are $6.00 an hour for 
300/450 baud, and $12.50 an hour for 
1200/2400 baud. Electronic communi- 
cation can become addicting very quick- 
ly, so it is important that you try to use 
your online time as efficiently as possi- 
ble. A number of tools have been 
designed to make interaction with Com- 
puServe as cost effective as possible. 

ST/FORUM (available in DL 13 of the 
Atari Developers Forum) is a program 
designed to minimize time spent on 
CompuServe. It does this by logging on, 
downloading all new messages as quick- 
ly as possible, and then logging off. The 
time it takes to dowiload messages is 
probably only about half the time it takes 
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to read them on line. The ST/FORUM 
user can read messages and compose his 
or her replies off line and then have 
ST/FORUM upload the replies the next 
time it logs on. According to Charles 
McGuumess, author of ST/FORUM, a 
number of significant enhancements are 
planned for future versions of the 
program. 

"Presently, ST/FORUM just supports 
access to the message board. In the fu- 
ture, we hope to expand ST/FORUM to 
allow it to dowidoad files, so that in the- 
ory a user will never have to log on Com- 
puServe 'in person.' By doing this we 
hope to make the users' bills the abso- 
lute smallest possible for the amount of 



^ The Developers Forum is 



guaranteed to be more cost- 
effective than psychotherapy, so 
don't be shy about asking for 
help! 



usage they get from the service." 

Bill Aycock's MCIS utility — for Atari 
8-l)it owners — is a similar program in 
that after a user captures new messages 
using their favorite terminal program, 
MCIS can be used to conveniently read 
the messages offline. MCIS is available 
in DL 5 of the Atari 8-bit Forum (BRO 
MCIS*.*). 

Owners of Flash 1 .52 (and liigher). 

Interlink, and ST Talk Profes- 
sional can enjoy reduced doviiload 
time by using CompuServe's new 
"Quick B" protocol, which was devel- 
oped by CompuServe programmers spe- 
cifically to maximize throughput in the 
multiuser CompuServe environment. 
Quick B protocol can be invoked by us- 
ing the command DOW/PROTO:QB. 

CompuServe's Forum software also 
makes it easy for you to retrieve infor- 
mation that is of biteresl to you. It allows 
you to select the message sections you 
wish lo read; it will automatically notify 
you of any messages you have wailing in 



each Forum so you can retrieve them 
quickly; it provides for nine Sysop- 
written "Bulletin" files which will noti- 
fy you of "hot items" hi all the major 
areas of the Forum; there is a member- 
ship directory for you to use to find 
others who share your interests; it allows 
you to set the initial area of the Forum 
you wish to visit when logging in, and 
much more. Please consult the Forum 
Users Guide and onlme help files for 
more uifonnation on how to get the most 
out of the Forum software. 

SIG*ATARI offers something for 
everyone. No matter where your Atari 
interests lie, you will find a whole sup- 
portive community that wants lo share 
in your discoveries and help you learn 
new and exciting things about your com- 
puter waiting for you on CompuServe. 
If you're a new Forum member, the 
Sysops request that you post an "ni- 
troduction" message on the message 
board so others can meet you. The 
Sysops also invite you to drop them a 
message any time. Their CompuServe 
User IDs are as follows: 

Ron Luks 76703,254 

Mike Schoenbach 76703,4363 
Dave Groves 76703,4223 

Keith Ledbetter 76701,124 
Tom Hudson 76703,4224 

Dick Brudzynski 76703,2011 
Bill Aycock 76703,4061 

Charles McGuinness 76701,11 
Dan Rhea 76703,4364 
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A menu of Atari services on Com- 
puServe can be accessed by typing GO 
ATARI at any CompuServe system com- 
mand prompt. HoM'ever, ihese "Quick 
reference words" can be used lo enter 
any of the following services directly: 

The Atari 8-Bit Forum (GO ATARI8) 

The Atari 16-Bit Forum (GO ATARI 16)Atari 
Developers Forum (GO ATARIDEV)Atari 
Vendor Support (GO ATARIVEN) Atari 
Users Network (GO ATA-1 )ANTIC Online 
Magazine (GO ANTIC) 

SLit»^<:2r-i|z>tri <z> n 
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CompuServe Information Service, Inc. 
5000 Arlington Centre Blvd. 
Columbus, OH 43220 
(800) 848-8990 
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Screen Dump Needed 

I would like to thank you for the many 
useful programs and utilities that I have 
found in your magazine. I own an Atari 8-bit 
computer, and I have recently purchased 
an Epson-compatible printer I need a quick 
graphics dump subroutine so that I can 
copy GRAPHICS 8 screens to my printer. 
I would also like the printed screen to be 
in a square format so that it looks the same 
as the screen. Can you help me? 

—Scott Alter 
Ft. Wayne, IN 

Take a look at this issue's The Magic of 
Tesselations, Part 2 Tiie programs in- 
cluded there contain a screen dump 
subroutine that may be exactly what you're 
looking for. 

All That Glitters 

It was with great excitement that I opened 
Issue No. 59, only to be presented with 
GLARE. After locating my polarized sun- 
glasses, I read in the editorial that you 
planned to continue the use of this eye killer 
Please! Please! Please do not do this to me 
and the rest of your readers who type in 
the listings. The matte-finished paper is eas- 
ier to read, since it does not reflect the light. 
I hope you return to it quickly 

—Logan C. Kinnison 
Columbus, NE 68601 

We think that the largest number of 
ANALOG readers would not agree with 
you. Many people associate the coated 
stock now used in ANALOG with an in- 
crease in class. "Slick" magazines include 
the most prestigious publications in the 
country, and as a result, the coated paper 
has practically become a status symbol. 
However the editorial staff of ANALOG 
Computing actually agrees with you. 
The reasons you Ve stated for not liking the 
slick paper were exactly the reasons we 
switched to a different stock several years 
ago Most people don't realize that the slick 
paper is actually a cheaper paper- 

Collector In Need 

I desire information on the Atari 5200 
game system that possibly your readers 
could supply. Since the 5200 is similar to 
the Atari 400 computer, I thought 



ANALOG Computing Magazine's 
readership an appropriate resource to 
pursue. 

I wish information on: 1) any prototype 
cartridges that were not mass-produced and 
how to acquire them; 2) cartridges that were 
produced in limited quantities by small com- 
panies; 3) how to produce my own car- 
tridges; and 4) inside or little-known facts of 
the 5200. 

I have a large collection of the 5200 sys- 
tem cartridges and want to make it the most 
complete. My problem is compounded by 
limited contacts and knowledge in the in- 
dustry 5200 collectors are restricted by its 
limited abilities and being only available for 
about three to four years. I know this re- 
quest is unusual, but I'm looking to you for 
much-needed help. —Arthur Nestor 

230 Arthur Street 
Zelienople, PA 16063 

Well, there you go, friendly readers. Does 
anyone out there have information on the 
5200 to share? 

Where's the Editor? 

I like your magazine a lot, except for one 
thing, your BASIC Editor II. Why don't 
you print it in each issue like you do the 
M/L Editor? It would make it so much 
easier for people just starting with your 
magazine. The way it is now, you have to 
order the back issue. You put which issue 
to order, but not where to order it from or 
how much it is. 

So, could you please tell me how much 

it is and where to order back issues from? 

— Algeline Theriot 

Houma, LA 70360 

We print M/L Editor in each issue be- 
cause the MIL Editor data listings can 
not be typed any other way (well, if you real- 
ly knew what you were doing, you could 
come up with a BASIC subroutine to read 
the data to the disk, but it'd be much easi- 
er to use the M/L Editor), whereas 
BASIC programs may be typed in without 
the use of the BASIC Editor II, even 
though we don't recommend that you try 
it, since the possibilities for error are too 
great. In any case, you'll be happy to know 
that the BASIC Editor II will be reprint- 
ed in next month's ANALOG, so there's no 



need for you to order a back issue. If you'd 
still like to order a back issue, however you 
may do so by writing to ANALOG Com- 
puting, PO. Box 16927, N. Hollywood, CA 
91615. The price for each back issue is $4. 
Also, you may wish to note that Issues 30 
to 40 and Issues 44 to 61 are still availa- 
ble. Limited quantities of earlier issues are 
also in stock, and that information will be 
provided as soon as we get a chance to 
update our inventory list. 

80-Column Telecommunications 

I have been a reader of ANALOG 
since Issue 12 and a subscriber since 17. 
Over the years I have seen a great many 
problems addressed and solved. I have a 
serious problem (as in serious business 
usage of an 8-bit Atari). Therefore, as a last- 
ditch effort, I am contacting your magazine. 
Over the past seven years I have owned 
various 8-bit Ataris and have collected large 
amounts of hardware, software and maga- 
zines. During the past three months I have 
searched for 80-column modem software. 
I have purchased an ICD MIO board only 
to find that their 80-column adapter is "on 
hold." I have purchased an XEPBO adap- 
ter and spent many a long night leaving 
and retrieving messages on BBSs, search- 
ing for modem software that would work 
with it. I now have numerous editions of 
AMODEMS, XMODEMS, 850 Express, etc. 
I live in a rather small rural area without a 
users group, so moral support on a quest 
like this is hard to find. 

Is there a public domain, commercial, 
freeware or shareware telecommunications 
program available for the 800XL with or 
without an MIO or XEP adapter that will al- 
low 80-column viewing? All my office com- 
puter displays are 80-column, so it's a bit 
messy trying to use my trusty Atari as a 
home workstation reading 40 columns with 
word wrap. Any reasonable suggestion or 
offer will be acceptable. Maybe someone 
somewhere has solved this problem. 

If any Atari user has any suggestions, 
please send them to me. 

One last word: It was great to receive 
Issue 59 in the mail today Thanks! 

—Michael A. Reott Sr, D.D.S. 

Hwy 321 South 

P.O. Box 615 

Maiden, NC 28650 
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stra Systems lias 
introduced a 
new monitor switcliTDOX tliat 
m..akes it easy to s-witcia "be- 
tween using color- and 
monoclirome monitors "witli 
your ST. Tlie Astra SWa Moni- 
tor Switcli is a small 'box tliat 
allows you to plug in a mon- 
itor's video calDle and power 
calDle. Pressing a switcli on tlie 
front of tlie "box toggles power 
and video from one m.onitor to 



ing their switch. 

Only a small amount of the 520ST's 
have RF modulators. These modulators 
are needed to take the video output of 
an ST and send it into a videotape 
recorder. Both the Astra and Practical 
Solutions boxes have audio and compo- 
site video RCA jacks built in. 

Monitor switching boxes are items of 
convenience, not necessity. However, at 
under $60 both the Astra SW2 and Mo- 
nitor Master boxes are a happy accesso- 
ry to your ST system. 



anotlier. 

Another company, Practical Solutions, 
makes a similar box called Monitor 
Master. Their switchbox operates in a 
similar way to the Astra box. In the back 
of the box are sockets for color and 
monochrome monitor video cables. One 
cable rims out of the box and into your 
ST's video input jack. Monitor Master 
costs $49.99, as compared with the 
slightly expensive Astra box at $59.95. 

Both boxes have a tricky problem 
when it comes to the ST's video input 
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jack. Many ST users have damaged their 
STs when accidentaUy (or purposely) 
removing the video cable while the ST 
and monitor are turned on. The ST is 
sensitive to voltage spikes and has no 
protection for its video chip when a surge 
comes down the wires. Practical Solu- 
tions includes a small notice to users to 
be certain the power ia turned off on your 
ST and monitor before operating the 
switch. Astra also comments that you 
should turn off your ST before operat- 



In Hannover, West Germany, the Ce- 
Bit trade show, probably the largest trade 
show in the world, saw some new product 
information from Atari. The Atari booth 
was crowded with companies offering 
software and hardware add-ons for the 
ST. It made quite a show for the pubhc, 
however, the real news was being shown 
to only a select group of people. 

In a hotel suite. Atari showed a prelimi- 
nary version of its new 68030 liigh-end 
workstation computer system. The new 
system uses the new Motorola 68030 
CPU, which is even more advanced than 
the previously reported 68020. The 
68030 Atari machine is being designed 
to be an inexpensive Unix system. Unix 
is the most popular multi-user operating 
system among the scientific and research 
development communities. The Atari box 
will come with Unix System 5.31, which 
is the AT&T supported version of the 
Unix operating system. 

Atari also showed the ABAQ Trans- 
puter and CD ROM units at the show. 
Both of these units have still not been 
completed at this writing. 

^ 1 «=»•>>/' LJ |=» ^ifc^* i-J r- 

It has always amazed me that a Macin- 
tosh running at 5 Megahertz is faster 
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than ail Atari ST niniiing at 8 Megahertz. 
You might think that because your ST is 
running quicker, then screen updates, 
text editing and object drawing would be 
vastly quicker than the Macintosh. All 
you have to do is look at each machine's 
screens to see the difference. Why?! 

The Macintosh operating system — the 
collection of programs that allow a Mac 
programmer to write text on the screen, 
plot objects, etc. — was written for the 
68000 16-bit chip m the Mac. The GEM 
operating system was written for 
8086/8088 8-bit chip of the IBM PC. 
The GEM system for the Atari ST is the 
result of a slowly evolving set of pro- 
grams which started as CP/M and is now 
a graphics-based operating system. 

GEM is made up of two parts: Virtual 
Device Interface (VDI) and the AppUca- 
tioii Environment Services (AES). Tlie 
VDI handles drawing text, lines, circles, 
etc. The AES draws drop-down menus, 
windows, dialog boxes, etc. 

VDI is the reason the Mac runs faster. 
VDI was written mostly in the C Lan- 
guage. C is usually very inefficient when 
it comes to high-speed graphically orient- 
ed programming. Writuig the same pro- 
grams in 68000 assembly languages 
would be hke adding a turbocharger to 
a 1988 Corvette engine. (Excuse the au- 
tomotive metaphor, but it did make a 
nice segue). 

Wayne Buckholdt at Softrek rewrote 
the text-drawing portions of the VDI in 
assembly language to develop Turbo ST. 
Turbo ST loads itself into your ST as a 
desk accessory on boot-up. The program 
intercepts all the text-plotting commands 
issued by VDI and processes them itself. 
The results can be speed improvements 
up to five times better than the normal 
VDI text-drawing speed. 

Turbo even speeds up text drawing for 
TOS-based programs that don't use 
GEM. A popular text-editmg program, 
Microemacs, scroUs incredibly quickly 
when Turbo ST is active. 

The program is approximately 25,000 
bytes long, so you won't notice much of 
a lag when booting your ST. Turbo ST 
carries a $49.95 suggested list price and 

u 



is available now. 
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In 1986, Digital Research, Inc., the 
makers of the GEM system for the ST, 
caved in to a lawsuit filed by Apple Com- 
puters in wliich Apple alleged that DRI's 
operatmg system infringed on the look 
and feel of the Macintosh operatmg sys- 
tem. Both the GEM system and the Mac 
system are loosely based on research 
done at the Xerox Palo Alto Research 
Center (PARC). Xerox used the graphic 
operating system in its Star mini- 
computer systems. Later, under the 
leadership of Steven Jobs, Apple bought 
a share of the technology developed at 
Xerox PARC for Apple's new machine, 
the Macuitosh. 

Now, Apple is suing Microsoft and 
Hewlett Packard because the two com- 
panies have developed visual operating 
systems similar to the Mac's. Apple feels 
that its system of windows and mouse 
controls is theirs. DRI settled the suit out 
of court because DRI was having cash 
problems. As part of the settlement, DRI 
changed the GEM desktop to resemble 
a less friendly user-interface. 

Hewlett Packard has developed a pack- 
age called New Wave that works with 
Microsoft's Windows 2.03 operating sys- 
tem. Windows is an operathig system for 
the IBM PC and compatibles that uses 
a mouse to manipulate windows and 
drop-down windows just like the Mac and 
GEM. HPS New Wave adds additional 
functions to windows to bring it even 
closer to the Xerox PARC system. 

The suit was filed in March of this year. 
The announcement of the suit caused 
Microsoft stock to fall $5,625 per share. 
HP stock also fell down $2,125 after the 
announcement. 

The strange thing about the suit is that 
Microsoft produces the most popular 
software for the Macintosh. With such a 
close working relationship, it is even od- 
der that there was no discussion between 
Microsoft and Apple before the suits 
were filed. 

By the way, in case you were wonder- 
ing how much money might be involved 
in Apple's marketing of the Macintosh, 
Apple posted revenues for the last quart- 



er of 1987 of $1.04 bUlion. That's a 52% 
increase over sales of 1986. Apple ex- 
pects with continued support of the Mac 
II and other products that they will be 
doing $4 bilhon m sales every quarter 
of 1988. 

X«'V<=> r-<zJ F*^ t- -f ^ cr tn 
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To follow up our reporting last month 
that WordPerfect Corp. (WPC) an- 
nounced its ultention of pulluig out of the 
Atari ST market: Tliey have changed 
their mind. WPC began making motions 
that they were removing their word 
processor, WordPerfect, from the ST 
market because they found complete co- 
pies on tliree pirate bulletin boards. At 
the time, WPC's representative said they 
were not having pirate problems wth the 
Amiga or IBM PC versions as compared 
to the ST. 

After a well-attended conference on 
CompuServe, WPC announced that it al- 
ways uitended on staying in the ST mar- 
ket, but was appalled at the apparent 
rampant piracy of software going on in 
the ST software industry. WPC effectively 
used its major clout in the ST communi- 
ty by making the annomicements. 

< — '■ cz> m p>^r-i i^^ 
r-1 eM-i t i <z> i-» ^ cd : 

Astra Systems, 2500 S. Fairview, Unit 
L, Santa Ana, CA 92704; (714) 
549-2141. 

Practical Solutions, 1930 E. Grant 
Road, Tucson, AZ 85719; (602) 
884-9612. 

Softrek, 2628 Martz Court, Orlando, 
FL 32817; (305) 657-4611. 

Eidersoft USA (800) 992-9198. 

Apple, 20525 Mariani Avenue, Cuper- 
tino, CA 95014; (408) 996-1010. 

WordPerfect Corp., 1555 N. Teclmol- 
ogy Way, Orem, UT 84057; (801) 
227-4288. 

About the author: Frank Cohen has been 
developing Atari programs since his first 
commercial product, Clowns & Balloons. 
When Atari Corp began marketing the 
16-bit ST computer, he founded Regent 
Software. Frank developed Regent Base, 
an SQL 4GL database, and is currently in- 
volved with several other ST related produc- 
tivity and small business software pack- 
ages. You may contact Frank directly on 
Delphi (REGENTWARE), Genie (FCOHEN) 
or CompuServe (72457, 3171). p, 
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have always had a 
lot of fun solving 
cryptograms out of 
puzzle books and maga- 
zines. However, some of 
the fun was lost through 
the multiple erasing and 
rewriting as guess after 
guess led to the solution 
of the puzzle. 
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But no more! The following program 
has put all the fun back into solving 
cryptograms — and has saved me a for- 
tune in erasers. 

After typing in the program using the 
ML Editor, you will be ready to use your 
computer to solve your first crypto- 
gram. The program includes full on- 
screen prompts and command key sum- 
maries to make the program as easy to 
use as possible. 

The first screen is the title screen. 
Press any key to begin the puzzle- 
solving process. 

The main puzzle entry and solving 
screen now appears. The cursor is on 
the second line of the screen's blue 
area. This is the first position of puzzle 
text entry. You are now ready to start 
typing your puzzle text from the puzzle 
book. A summary of valid editing keys 
is shown in the grey area on the bottom 
of the screen. You are only allowed to 
enter text on every other line, giving 
you nine Unes for puzzle text. The other 
nine lines in the blue area are for the 
solved puzzle text. All editmg keys oper- 
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ate as they do in BASIC. You may in- 
sert and delete characters or whole 
Unes. The one addition is a confirming 
prompt when you press SHIFT-CLEAR 
to clear the screen. This will save you 
from accidental loss of puzzle text. I 
usually like to type in all of the puzzle 
text, and then insert lines (SHIFT- 
INSERT) to center the puzzle on the 
screen. 

When you have entered all of the puz- 
zle text, press the START key to begin 
solving the puzzle. A new set of com- 
mands will appear in the grey area at the 
bottom of the screen. The top two lines 
of the screen — the green area — will 
come into play now. The first line is the 
alphabet in order, and the line below 
that will contain the replacement set of 
letters as you try and solve the puzzle. 
I included this so you can quickly see 
whether you are trying to substitute the 
same letter in two different places or to 
see which letters are still available for 
use in solving the puzzle. 

You are now prompted for the puz- 
zle letters you wish to replace on the red 
prompt line near the bottom of the 
screen. The cursor is an underline to let 
you know that the only text-editing keys 



available are the backspace, space bar 
and return keys. To use the special 
commands in the grey area at the bot- 
tom of the screen, press and hold CON- 
TROL while pressing the highlighted 
letter key of the command that you wish 
to use. I will explain each command in 
detail for you in a moment. 

To actually solve the cryptogram you 
must type at the "Replace" prompt the 
letters of the puzzle — the letters that you 
entered in the edit phase— that you wish 
to change. After pressing RETURN, you 
will be asked what to replace those let- 
ters with. Type the letters you want sub- 
stituted and press RETURN at the 
"With" prompt. All changes will be 
reflected in the lines above your puzzle 
text in inverse video. The second line 
of the display will also be updated at this 
time. Notice that you may not type in 
more characters at the "With" prompt 
than you typed in at the "Replace" 
prompt. You may also not press 
RETURN without any input at the 
"Replace" prompt nor may you enter 
any spaces. You are allowed to press 
RETURN only at the "With" prompt. 
Doing so will cause the program to 
blank out all characters from the 



"Replace" prompt. Do this to clear out 
mistakes. You may selectively blank out 
characters by typing a space also. If you 
type less characters at the "With" 
prompt than you typed in at the 
"Replace" prompt, the extra characters 
will be changed to be spaces. 

What about all of those command 
keys at the bottom of the screen? Well, 
the first command key listed is the Back 
key. If you notice a mistake in the let- 
ters at the "Replace" prompt while typ- 
ing the "With" letters, press CNTRL- 
B to go back to the "Replace" prompt 
and fix the mistakes. 

If you have made multiple misguess- 
es while attempting to solve the puzzle, 
you may wish to use the Clear com- 
mand. After a confirming prompt, the 
program clears out the changes to the 
puzzle only, not the puzzle text itself. 

"Edit" allows you to go back to the 
edit screen, to make changes to the puz- 
zle text. All changes up to this point are 
erased, but they will be restored when 
you return to puzzle solving. Make all 
changes necessary, and press START 
when you are done. 

"New" allows you to start a new puz- 
zle. There is a confirming prompt for 
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this command because it is rather dras- 
tic. It clears out all puzzle text along 
with all changes made to that puzzle and 
deposits you back into the puzzle text- 
editing screen. Only use this command 
when you have completely solved the 
current puzzle or when you are ready 
to give up on the current puzzle. Warn- 
ing! There is no way to undo this 
command! 

"Quit" is used only when you are 
completely done with the program. 
There is a confirming prompt. If you an- 
swer yes to the "Quit?" question, you 
will be returned to DOS. 

Undo is a handy feature that allows 
you to undo the last change you made 
to the puzzle. If you use undo a second 
time, you will undo the undo. You can 
use this command to toggle between two 
possible changes to a puzzle to see 
which is going to work better. 

I have included a sample puzzle to get 
you started. The puzzle appears in 
Figure 1 . The puzzle includes a hint if 
you need it. The answers appear upside 
down in Figure 2. A list of common, 
easy-to-recognize words appear in 
Figure 3. 1 have tried to include as many 
oddball, easy-to-spot words from the 
word list as possible in the sample puz- 
zles, so you can see how the word hst 
will help you in solving your puzzles. 



N/'V/' r- i t i n.g 

This project started out as a small, 
slow, BASIC program five years ago on 
a HeathKit H-89 computer. It had no 
editing commands, no fancy graphics 
and no mistake fixers. It did the job and 
was better than solving the puzzle on 
paper, but it was lacking as far as use- 
ful computer programs go. It was one 
of the few programs that I had convert- 
ed from the H-89 to my new Atari. 
When I converted it two years back, it 
was identical in features and functions 
to the H-89 version. I decided to fix 
that. 

First, I wanted to use some of the fan- 
cy color graphics of the Atari. Since this 
is a text-oriented program I knew I 
would be using Graphics mode 0. The 
only way to add color was to use Display 
List Interrupts. I read all I could on 
them and wrote one for the program 



and had it up and running with BASIC. 
Next, I decided that theletter replace- 
ment routine had to be fast, so I wrote 
a short ML routine for that also. Then 
I started on the editing features. Unfor- 
tunately, BASIC was starting to drag. I 
looked at the program and said, "Hey! 
I have two machine-language routines 
already. Why not do the whole thing in 
assembly?" I had been trying to get my- 
self to write an all-assembly language 
program for the longest time, and here 
it was half done (or so I thought at the 
time). 

I ended up spending the next five days 
typing source code into Action! from 
OSS. Wait a mmute! Action!, BASIC, as- 
sembly. What the heck is going on here? 
Time for a confession. I love MAC/65, 
but I hate line numbers, especially since 
MAC/65 never uses them except to 
keep source code in order. MAC/65 
does have a nice feature that will take 
unnumbered ASCII text and append 
line numbers to it. Using this feature, 
I was able to type the source code in 
with the Action! editor. Action! allowed 
for source code manipulation, with the 
extra feature of scrolling around to find 
routine names and various labels 
without having to remember what line 
number each routine started at. 

The next big help was my 130XE with 
SpartaDOS and its RAMdisk capabili- 
ties. I could never Uve without a RAM- 
disk again. It is a great place to keep 
temporary files, and it sure sped up as- 
sembly with INCLUDE files. It also 
helped when I entered the un- 
numbered text files into MAC/65. 

The largest object file that I had ever 
compiled to date was 192 bytes. This 
program is just over 3,000 bytes, which 
just goes to show that you can make the 
big jump into major assembly language 
programming without going through 
byte by byte upgrades. What I am get- 
ting at is this: go for it and write that first 
big all assembly project. You can do it, 
and you will be proud and have a lot 
more confidence in yourself after you 
do. 

Okay, I must admit that I did do one 
special thing in the program. I did 
bypass the normal way of reading the 
Atari keyboard. At first I opened the 
keyboard for input the normal way, but 
that caused problems with the display 
list interrupts, especially on the older 



Atari 800. The first place to look for a 
solution was De Re Atari, but that was 
no help. It said, "Another solution is to 
disable the OS keyboard service routine 
and provide your own keyboard rou- 
tine." This would be a tedious job. Oh, 
great! I thought. 




It turned out to be fairly simple. All 
I did was use the value in RAM location 
764, the last key pressed value, to look 
up the ATASCII code in a table that sits 
in ROM. This table resides in different 
locations in the 400/800 than in the 
XL/XEs, but it was easy to have the pro- 
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gram adjust for that. The program's 
screens are crystal clear now. I only had 
to change one ten-line subroutine in the 
program to accompUsh this, and now no 
annoying key click sounds occur on any 
of the Atari machines while running the 
program. 

I was able to produce 27 pages of 
working source code in five days, which 
is a record for me, and even more im- 
pressive in that it was my first full-blown 
program in a new language. 

N WTBOOFKX F-VNF flE: FDXIKJ TMM 

ae; hoaf-k [)[;kukee. ctd ikkj rr 



fdxi ctdx «nf"nxa ti f-t etu2f; 
fvkf;f; ciddoufcf: : 

Words marked with "*" are proper 
nouns. The title of the puzzle may be 
of some help but . . . 

I— I ir>»jnr 

The pattern FVNF can only be one 
word. Check the word Ust. 

I=IC:31_J F<.E -2.. 

A COMPUTEFt THAT IS TIJFSNED Of-F 
IS QUITE USELESS, YOU NEED TO 
TUFiN YDUF! «fiTA(!I ON TO SDI.UE 
TFFESE PUZZlj;S ! 
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2. AN AS AT BE BY 00 RO ME FHI IF IN IS 
IT ME MY ND OF DH ON OFi SO TO US WF" 

3. ALL. AND ANY AFiE ATE BAD BIG BUT CAN 
CAT COW DAY DID FAT FOFi FFAD HAS HEFi 
FFIS HIM HOW F(ID LAD LIE LOT MAY NDFi 
NOT NOW OFF ONE DUF! OUT SAD SAY SHE 
SIN SIX SON THE TOO TWO WAS WHO YOU 

1. AWAY BOTH CALL COME DOES EVEN FEEI 

F-IN[> Fa:UE FORM FOUR FROM FULL GOOD 

HAUE IDEA F(NEW F<EEP FCEPT KNOW LESS 

LONG LOSE MANY MESS MORE MUST NEED 

ONCE F!EAL SAID THAN THAT THEM THEN 

THEY UPON WHEN WILL WITH YEAR YOUR 

5. AFTER ALLOW AWAFSE BRING EUERY GOING 
HAPPY F(NOWN LIMIT LOCAL OFTEN OFFER 
PIZZA RULER SIDES STYLE THEIR THERE 
THESE THOSE THREE TOOTH VALUE WHERE 

6. ACCEPT COFFEE LADDER LITTLE OFFICE 
PEOPLE PEPPER PLEASE REALLY MATTER 

■>. ELEMENT GENERAL FIAPF'INESS USELESS 
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leOO DflTft 255,255,8,64,251,64,76,158,6 

9,112,112,66,46,64,8,2,747 

1010 DflTfl 144,2,2,8,2,2,0,2,2,8,2,2,8, 

2 2 1X7A 

1020 DATA 2,2,8,2,2,8,2,2,8,2,2,144,2, 

144,2,0,4916 

1830 DftTfl 2,65,3,64,0,0,8,0,0,33,34,35 

,36,37,38,13,4315 

1040 DftTft 39,40,41,42,43,44,45,13,46,4 

7,48,49,58,51,52,13,6708 

1050 DftTft 53,54,55,56,57,58,0,0,8,8,8, 

8,8,8,0,0,2233 

1060 DATft 0,0,8,8,8,8,8,0,0,0,0,8,0,0, 

0,8,1868 

1870 DATA 8,8,8,8,8,8,8,8,8,8,0,8,8,8, 

8,8,1878 

1080 DflTft 8,8,8,8,8,0,8,8,8,8,0,8,0,0, 

0,0,1080 

1090 DflTft 0,8,8,8,8,0,0,0,0,0,0,0,8,8, 

J / 1.B90 

1100 DflTft 0,0,8,8,8,8,8,6,8,8,8,8,8,8, 

1110 DftTft 0,0,0,0,0,0,8,8,8,8,8,0,8,8, 

1120 DflTft 0,0,0,0,0,0,8,8,8,8,8,8,0,0, 

liso DflTft 0,0,0,0,0,0,8,8,8,8,0,8,8,8, 

J ^ X130 

1140 DftTft 0,0,0,0,0,0,0,8,8,8,0,8,0,0, 

J ^ XX48 

1150 DftTft 0,0,0,0,0,0,0,0,0,0,0,8,0,0, 

1160 DftTft 0,0,252,64,247,65,0,0,8,0,0, 

35,50,57,48,52,7217 

1170 DftTft 47,39,50,33,45,0,51,47,44,54 

,37,58,8,8,8,8,4478 

o^i®.?SI'* 8' 8'®' 8, 8, 8, 8, 0,0, 0,0, 0,0,0, 

i^n®.?SI'' «'«'»' 8' 8, 0,0, 0,0, 0,0, 0,0,0, 
Of 0/ XX78 

FS^.SSI'* 8' 8' 8' 8' 0' 8,0, 0,0, 8, 8, 8, 8, 8, 



J218^DftTft 8,8,0,8,8,8,8,8,8,8,8,0,0,0, 

1220, ^ATft 8,8,0,8,0,0,0,0,0,0,0,0,0,0, 
O, B, 1220 

i^I^.SSI'^ 8i 0,0, 0,0, 0,0, 0,0, 0,0, 8, 8, 8, 
0,0, 1230 

i^o^.S^I'* 8#8f8f8f8,O,O,O,O,0,0,O,8,8, 
|250^DftTft 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

i260 DftTft 8,0,0,0,0,0,0,0,0,0,0,8,0,98 
f X2X J 0^ 4447 

Wt^^^^ <3, 101, 118, 105, 110, 8, 48, 101, 

99,107,0,0,0,0,0,0,5944 

1280 DftTft 0,0,0,0,0,0,0,0,0,0,0,0,8,8, 

8,0,1280 

S^^^.SSI" 8'0'0'0'0'8,8,O#e,8,0,O,0,O, 

i^S^.SSI'* 0'0' 8' 8' 8, 8, 81 8- 8, 8, 0,0, 0,0, 
Oi Bf X300 

Pi^.S?!" 8,0,8,8,0,0,0,0,0,0,0,0,0,0, 

0/ B/ X3X8 

1320 DftTft 0,0,248,65,243,66,8,8,8,8,8, 

8,8,8,8,8,3935 

1338 DftTft 8,8,8,8,8,8,8,8,0,0,0,0,0,0, 

8 1 B ji X338 

i^i^.B^I'* 8,0,0,8,8,8,8,8,8,8,8,8,8,8, 
0,0,1340 

i^o^.SSI'* 8,8,8,8,8,8,0,0,0,0,0,8,0,0, 
B f B J X358 

1360 DftTft 0,0,0,0,0,0,0,0,0,0,0,8,0,48 

i XX4| X6X/ 5358 

1378 DftTft 115,115,0,97,110,121,0,187,1 

81,121,0,116,111,0,98,101,2275 

1380 DftTft 103,105,110,0,0,0,0,0,0,0,8, 

0,8,0,8,8,2823 

^398 DftTft 0,0,0,0,8,8,8,8,8,8,0,0,0,0, 

0f 6 1 X378 

1400 DftTft 0,8,8,0,0,8,8,8,8,0,0,0,8,8, 
8,8,1400 

i*i®.5?I'' 8,8,8,8,8,8,8,8,8,0,0,0,0,0, 
B| B/ X4X8 

"20 DftTft 8,0,8,8,8,8,8,8,8,0,0,0,0,0, 
B / J X428 

i*^®.^^!'* 8,0,8,8,8,8,8,8,0,0,0,0,0,0, 
0,8, 1438 
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1630 DflTfl 128,164,165,172,165,180,165, 

128,0,93,92,94,95,6,8,6,1658 „ „ „ „ 

1640 DflTft 6,6,240,57,101,68,0,0,9,0,0, 

128,162,171,128,179,4361 

1650 DftTfl 176,128,0,128,178,165,180,18 

1,178,174,128,0,116,111,0,101,6610 

1660 DftTft 110,116,101,114,0,116,101,12 

0,116,0,0,0,0,6,128,163,696 

1670 DftTfl 180,178,172,128,0,0,0,128,16 

2,128,97,99,107,0,0,0,642 

1680 DftTft 0,128,163,128,108,101,97,114 

,0,0,0,128,165,128,100,105,4327 

1690 DATA 116,0,0,0,0,0,128,171,165,18 

5,179,128,0,0,0,128,2958 „„„„„, 

1700 DATA 174, 128, 101, 119, 0,0, 0,0,0, J 

8,177,128,117,105,116,0,2403 

1710 DATA 0,0, 0,128, 181, 128, 110, 100, J 

1,0,0,0,196,68,191,69,3933 

1720 DATA 50,101,112,108,97,99,101,31 

55,105,116,104,30,48,114,101,3223 

1730 DATA 115,115,0,128,179,180,161,; 

o 4 on iia o fi4 1 n^ 1 ni . 1 1 n . n . SflS? 
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9,238,84,238,84,169,2,133,8755 

2318 DttrCt 85,32,3,72,76,17,70,281,28,2 

40,24,281,29,248,36,281,8157 

2328 DftTft 38,248,48,164,85,192,37,288, 

61,168,2,132,85,32,3,72,3635 

2330 DflTfl 76,17,70,164,84,192,3,208,42 

,168,19,132,84,32,3,72,3871 

2348 DflTfl 76,17,78,164,84,192,19,288,2 

6,168,3,132,84,32,3,72,2873 

2358 DftTfl 76,17,78,164,85,192,2,288,13 

,168,37,132,85,32,3,72,3839 

2368 DftTft 76,17,70,32,189,72,76,112,70 

,72,162,32,192,72,187,73,6606 

2378 DATA 169,11,157,66,3,169,8,157,72 

,3,157,73,3,184,76,86,2873 

2388 DATA 228,32,127,73,166,84,165,283 

,24,185,88,133,285,165,284,185,915 

2398 DATA 0,133,286,232,232,224,21,248 

,19,168,39,177,285,145,283,136,3013 

2408 DATA 288,249,165,285,133,283,165, 

286,133,284,288,218,168,39,169,0,2489 

2418 DATA 145,283,136,288,251,169,2,13 

3,85,32,127,73,168,2,177,283,8917 

2420 DATA 133,93,32,3,72,76,17,78,166, 

84,224,19,248,56,169,1,5823 

2430 DATA 141,240,2,32,3,72,169,38,133 

,203,169,67,133,204,162,21,8368 

2448 DATA 282,282,228,84,248,32,165,28 

3,56,233,88,133,205,165,204,233,5318 

2458 DATA 8,133,206,168,39,177,285,145 

,203,136,288,249,165,285,133,283,6547 

2468 DATA 165,286,133,204,288,218,32,1 

27,73,168,39,169,8,133,93,141,8067 

2470 DATA 240,2,145,283,136,288,251,16 

9,2,133,85,32,3,72,76,17,4124 

2488 DATA 70,72,32,127,73,169,0,160,36 

,145,203,104,76,112,70,166,7474 

2490 DATA 84,165,88,133,283,165,89,133 

,284,165,283,24,185,40,133,283,567 

2580 DATA 165,204,105,0,133,204,202,20 

8,240,96,169,8,141,31,208,173,1585 

2510 DATA 31,208,201,6,208,244,96,169, 

64,141,190,2,169,0,141,182,9436 

2520 DATA 2,173,252,2,201,255,248,249, 

168,169,255,141,188,73,183,74,4933 

2538 DATA 252,2,177,121,96,32,171,75,3 

2,34,72,162,17,189,258,68,7339 

2548 DATA 157,79,67,282,16,247,32,45,7 

2,192,1,288,6,32,183,75,5556 

f^fL"*?!? 76,188,71,32,234,73,32,159,7 

4,184,184,76,227,78,169,126,8675 

2568 DATA 133,283,169,64,133,204,162,9 

,169,8,168,39,145,283,136,16,7729 

2578 DATA 251,165,283,24,185,88,133,28 

3,165,284,105,8,133,204,282,288,3839 

2588 DATA 231,96,32,34,72,162,17,189,2 

32,68,157,79,67,282,16,247,9532 

2598 DATA 32,45,72,192,1,288,3,76,251, 

69,165,88,24,185,128,133,7188 

2688 DATA 283,165,89,105,0,133,284,162 

,9,169,0,168,39,145,283,136,8791 

2618 DATA 16,251,165,283,24,185,88,133 

,203,165,204,105,8,133,284,282,1944 

l5^S.'*5I'*.2^^'23i|76,284,69,32,171,75, 

32,34,72,162,17,189,77,69,5158 

^^?2,'*?^5 157,79,67,282,16,247,32,45,7 

2,192,1,288,6,32,183,75,5046 

2648 DATA 76,188,71,184,184,165,88,24, 

105,40,133,203,165,89,105,0,6233 

?5l®,S$^?,i^?'2®*'^^2,19,169,O,160,39, 

145,203,136,16,251,165,203,24,55 

2660 DATA 105,40,133,203,165,204,105,0 

,133,204,202,208,231,32,159,74,1815 

l^^2«^^l^ 76,204,69,162,26,169,0,157,1 

02,68,157,169,68,202,16,247,9666 

^?I2 E^TA 96, 32, 171, 75, 32, 34, 72, 162, 17 

,189,59,69,184,74,179,75,6650 

2650 DATA 157,79,67,282,16,247,32,45,7 

2,192,1,288,6,32,183,75,5786 

^?5®,E5^2.^S'^^^'^^'^8*'^«*'i62,16,169 

,12,157,66,3,32,86,228,162,6793 

^?if £5TA 32,169,12,157,66,3,32,86,228 

,169,64,141,14,212,173,229,551 

2728 DATA 2,24,185,1,141,48,2,133,283, 

173,238,2,141,49,2,133,5948 

2738 DATA 284,168,4,177,283,133,88,288 

,177,203,133,89,169,8,141,248,2309 



2740 DATA 2,169,148,141,198,2,169,202, 

141,197,2,169,2,133,85,169,9045 

2750 DATA 12,141,252,2,96,32,171,75,32 

,34,72,162,18,189,95,69,5050 

2760 DATA 157,88,67,202,16,247,162,25, 

189,169,68,72,189,102,68,157,9418 

2770 DATA 169,68,104,157,102,68,282,16 

,239,32,86,75,169,0,133,19,5288 

2780 DATA 133,28,165,20,201,100,208,25 

0,32,183,75,76,180,71,32,240,98 

2790 DATA 75,169,126,133,203,169,64,13 

3,204,169,9,141,168,68,160,2,8539 

2800 DATA 24,165,203,105,40,133,205,16 

5,204,185,0,133,206,177,205,201,3865 

2810 DATA 0,240,24,201,33,176,7,9,128, 

145,203,76,147,75,56,233,8784 

2820 DATA 33,170,189,102,68,201,8,288, 

238,248,238,280,192,38,208,221,6622 

2830 DATA 24,165,283,185,88,133,203,16 

5,204,105,0,133,204,206,168,68,1778 

?i4*',ES^? 208,188,96,162,39,189,78,67, 

157,128,68,202,188,75,94,76,8652 

?il°-,S'*P 16,247,96,162,39,189,128,68, 

157,78,67,282,16,247,96,162,117 

^?5°„?S^^ 25, 189, 182, 68, 157, 169, 68, 282 

,16,247,174,195,68,202,138,168,3070 

^tl^.^'*'^'* 189,106,67,141,168,68,56,189 

,88,67,233,33,178,173,168,68,9849 

2888 DATA 157,182,68,152,178,282,16,23 

8,32,86,75,96,162,25,168,33,6576 

^?I2 S^^** 189,182,68,281,8,240,2,9,128 

,153,86,64,202,136,192,27,8055 

2900 DATA 288,238,169,13,153,86,64,136 

,189,182,68,281,8,248,2,9,6375 

2918 DATA 128,153,86,64,282,136,192,19 

,208,238,169,13,153,86,64,136,9776 

2928 DATA 189,182,68,281,8,240,2,9,128 

,153,86,64,202,136,192,11,7829 

2930 DATA 208,238,169,13,153,86,64,136 

,189,102,68,201,8,240,2,9,6485 

2948 DATA 128,153,86,64,282,136,192,4, 

208,238,96,169,0,162,16,157,9446 

2950 DATA 181,67,282,16,258,174,195,68 

,76,38,71,224,2,225,2,0,5717 

^2^2 SSI? 64,0,0,0,0,8,8,8,8,8,8,8,8,8 
, B, 0, 3824 



I — i^ti n^ 



>^s: 



: nn t»ly 



18 .OPT NO LIST 

28 .OPT OBJ 

38 .TITLE CRYPT8GRAM SOLVER 
4B ; 

50 »= $8008 

68 ; 

78 START JMP OPNKYSCR 

88 ; 

90^^ .INCLUDE ltD:CRYPT02.M65 

0110 ; 

0128 ENTERTEKT 

0130 ; 

0140 LDX tt39 

0150 DSPELN 

0160 LDA ELN1,K 

0170 STA PMPTLINE+4e,X 

0180 LDA ELN2,X 

0190 STA PMPTLINE+8e,X 

0200 DEX 

0210 BPL DSPELN 

0220 J5R CHNGCLRS 

0230 LDA «1 ;set POW and 

B25B LDA tt3 ;upper-left 

0260 STA ROWCRS jpos of entry 

0270 STA CR5INH ^ 

0280 LDA tt32 

0290 JSH PRNTCHR 

0300 LDX tt28 

0310 Wl LDA EDTPMPT,X 

8320 STA REPLINE+5,X 

0330 DEX 

8348 BPL Wl 

8358 ; 



S2 



|ULY 1988' A,N,A,L,0,G, COMPUTING 



0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0508 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 



SflVSTflRT 

LDA ttO 

STft CRSINH 

J5R CLRPRMPT 

JSR MUECR5 

LDX »22 
W2 LDft ENTPMPT,X 

STft PMPTLINE+8,K 

DEX 

BPL M2 
GETKEY 

LDfl C0N50L ;read console 

CMP «6 J if START 

BHE GETKEY2 

JMP ENTERDONE ;then DONE 
GETKEY2 



LDA tt8 

STft C0M50L 

LDft KEYPR5 

CMP «$FF 

BEQ GETKEY 
GETIT 

JSR GETLET 

CMP «$9B 

BNE Gl 

JMP RTN 
Gl CMP ttS9C 

BNE G2 

JMP DELINE 
G2 CMP tt$9D 

BNE G3 

JMP INLINE 
G3 CMP »$FE 

BEQ PRNTIT 

CMP «SFF 

BNE G4 

JMP INSCHR 
G4 CMP tt$7D 

BNE G5 

JMP CLREDT 
G5 CMP «$7E 

BEQ PRNTIT 

AND «S7F 

CMP «$1C 

BCC GETKEY 

CMP «$20 

BCC CC 

BCS G6 
CC JMP CRSCTRL 
G6 CMP tt$6e 

BEQ GETKEY 

BCC PRNTIT 
CMP «$7B 
BCS GETKEY 
SBC »S1F 
PRNTIT JSR PRNTCHR 
LDA COLCRS 
CMP »38 
BNE GETKEY2 
LDO ROMCRS 
CMP «19 
BNE NXTLINE 
LDA tt37 
STA COLCRS 
JSR MUECRS 
JMP GETKEY 
NXTLINE 

LDA ttl 
STA COLCRS 
CLC 

LDA ROMCRS 
ADC tt2 
STA ROMCRS 
JSR MMECRS 
JMP GETKEY 



;RESET console 



; RETURN? 



;DEL LINE? 



;DEL CHR? 



;CLS issued 



;turn off HI bit 



Set 


the 


Shown 


screen 


and 


the 


write 


to 


screen 


to the 


Main 


puzzle 


entry 


screen 



SETMAIN 

LDA tie 
STA DMA 
LDA »192 



;Screen off 



1230 


STA 


DLIENA 


1240 


LDA 


tt <DLI1 ^Activate 


1250 


STA 


DLIUEC ;DLI 1 


1260 


LDA 


tt >DLI1 


1270 


STA 


DLIUEC+1 


1280 


LDA 


tt <DLST1 ;and DLIST 1 


1290 


STA 


DLI 


1300 


LDA 


tt >DLST1 


1310 


STA 


DLI+1 


1320 


LDA 


no ;reset colors 


1330 


STA 


BRD 


1340 


LDA 


ttl92 


1350 


STA 


BCK 


1360 


LDA 


tt34 ;and screen 


1370 


STA 


DMA 


1380 


LDA 


n <MANSCR 


1390 


STA 


SCREEN 


1400 


LDA 


tt >MANSCR 


1410 


STA 


SCREEN+1 


1420 


LDA 


tt255 


1430 


STA 


KEYPRS 


1440 MTKEY 




1450 


LDA 


KEYPRS 


1460 


CMP 


tt255 


1465 


BEQ 


MTKEY 


1470 


LDA 


tt255 


1480 


STA 


KEYPRS 


1490 


JSR 


DONEH 


1500 ; 






1510 ; 


^~"^^~'^~ 




1520 ; 


The START key has been 


1530 ; 


pressed and we are ready 


1540 ; 


to start solving the 


1550 ; 


puzzle. Me have to put 


1560 ; 


the CNTRL proMpts on the 


1570 ; 


bottoM of the screen and 


1580 ; 


ask for the puzzle letters 


1590 i 


on the proMpt line. 


1600 ; 


_ — — — -* — - 




1610 ; 






1620 ENTERDONE 


1630 


LDA 


ttl 


1640 


STA 


CRSINH 


1650 


LDA 


ttl 9 


1660 


STA 


ROMCRS 


1670 


LDA 


tt38 


1680 


STA 


COLCRS 


1690 


LDA 


»32 


1700 


JSR 


PRNTCHR 


1710 


LDX 


tt39 


1720 E2 LDA 


CMD1,X 


1730 


STA 


PMPTLIHE+40,X 


1740 


LDA 


CMD2,X 


1750 


STA 


PMPTLINE+88,X 


1760 


LDA 


»e 


1770 


STA 


REPLINE,X 


1780 


DEX 




1790 


BPL 


E2 


1800 


JSR 


DDREP 


1810 J 






1820 , 
1830 i 


The CNTRL coMMands are now 


1840 i 


on the screen. Tine to 


1850 J 


clear 


the proMpt line and 


1860 , 


put up the REPLACE) proMpt 


1870 


for the user to start 


1880 


enter 


ing text. 


1890 






1900 






1910 1 


>RNTREP 




1920 


JSR 


CLRPRMPT 


1930 


LDX 


»7 


1940 1 


El LDA 


REPPMPT,X 


1950 


STA 


PMPTLINE+2,X 


1960 


DEX 




1970 


BPL 


El 


1980 


LDX 


no 


1990 


PRNTCRS 




2000 


LDA 


tt$4E 


2010 


STA 


REPLCHRS,X 


2020 


GETMORE 




2030 


STX 


REPLEN 


2040 


JSR 


GETEM 


2050 


LDX 


REPLEN 


2060 


CMP 


n$0Z 


2070 


BEQ 


GETMORE 


2080 


CMP 


tt$20 
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2898 


BEQ GETMORE 


2188 


CMP ttS9B 


2118 


BNE GE24 


2128 


CPK ttO 


2138 


BEQ GETHORE 


2148 


BNE GETMITH 


2158 


EE24 


2168 


CMP ttS7E 


2178 


BNE SHOMREPCHR 


2188 


CPK ttO 


2198 


BEQ GETMORE 


2200 1 


3CKREP 


2218 


LDA tte 


2228 


STfl REPLCHR5,X 


2238 


DEX 


2248 


BPL PRNTCR5 


2258 


SHOMREPCHR 


2268 


CPK ttll 


2278 


BEQ GETMORE 


2288 


SBC «$1F 


2298 


STfl REPLCHRS,X 


2308 


INK 


2318 


BNE PRNTCRS 


2328 
2338 
2348 


' 


This Will print the W1TH> 


2358 


proMRt on the screen and 


2368 


get the replacenent chars 


2378 


up to the length of the 


2388 


puzzle chrs and then wait 


2390 


for the RETURN or BK SP 


2480 


key to be pressed. The 


2410 


CNTRL-B is now valid and 


2420 


will have to be dealt with 


2430 


too. 


2440 
2458 , 




———————————————————__—_____ 


2468 ( 


iETMITH 


2478 


STK REPLEN 


2480 


LDA ttO 


2490 


STfl REPLCHRS,X 


2500 


LDK tt4 


2518 F 


>RNMITH LDfl MTHPMPT,X 


2520 


STfl UITHCHRS-5,X 


2538 


DEK 


2548 


BPL PRNMITH 


2558 


LDK »8 


2568 F 


>RNMCRS 


2578 


LDfl }t$4E 


2580 


STfl MITHCHRS,X 


2590 C 


iETWLET 


2600 


STK ROMTMP 


2618 


JSR GETEM 


2628 


LDK ROMTMP 


2638 


CMP »$20 


2648 


BEQ MPRNT 


2658 


CMP »$02 


2668 


BNE GM5 


2678 


JMP BCKTOREP 


2680 G 


M5 


2690 




2700 


BNE GET2 


2710 F 


INENT 


2720 


LDfl ttO 


2730 


STfl MITHCHRS^K 


2740 


JSR STOREREP 


2750 


JMP PRNTREP 


2760 G 


ET2 CMP ttS7E 


2770 


BNE MPRNT 


2780 


CPK no 


2790 


BEQ GETMLET 


2800 G 


ETBACK 


2810 


LDfl tt8 


2820 


STfl MITHCHRS,X 


2830 


DEK 


2840 


BPL PRNMCRS 


2858 M 


PRNT 


2860 


CPK REPLEN 


2870 


BEQ GETMLET 


2880 


SBC «$1F 



2898 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3088 

3818 

3020 

3030 

3048 

3050 

3860 

3070 

3080 

3098 

3188 

3110 

3128 

3138 

3148 

3158 

3168 

3170 

3188 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3328 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 



STfl MZTHCHRS,K 

INK 

BNE PRNMCRS 



This is Where we enter the 
puzzle letters to be changed 



GETEM 

JSR GETLET 

CMP tt$7E 

BNE GEIO 

RTS 
GEIO CMP tt$9B 

BNE GEll 

RTS 
GEll CMP tt$02 

BNE GE12 

RTS 
GE12 CMP tt$20 

BNE GEl 

RTS 
GEl CMP »$e3 

BNE GE2 

JMP CLRCHG 
GE2 CMP tt$05 

BNE GE4 

PLfl 

PLA 

JMP ENTERTEXT 
GE4 CMP tt$OE 

BNE GE5 

JMP NEMPUZ 
GE5 CMP »$11 

BNE GE6 

JMP QUIT 
GE6 CMP tt$15 

BNE GE8 

JMP UNDOIT 
GE8 CMP tt$41 

BCC GETEM 

CMP »$5B 

BCC ZSOK 

CMP «$7B 

BCS GETEM 

CMP ttS61 

BCC GETEM 

SBC U$20 
ISOK 

RTS 



Move the cursor so it will 
show up on the screen 
after inhibiting it. 



MUECRS 
LDK 
LDfl 
STA 
LDA 
STA 
LDA 
STfl 
LDA 
STA 
LDA 
STA 
JSR 
RTS 



n$2B 

ttPUTCHR 

ZCCMD,X 

» <LFRT 

ICBAL,K 

U >LFRT 

ICBAH,K 

tt2 

ICBLL,X 

tto 

ICBLH,X 
CIOU 



Clear the proMpt 
line on Main 
entry screen. 



CLRPRMPT 



u 



)ULY I988'A.N,A,L.0.G, COMPUTING 



TITL Sol 






3690 


LDA 


tt8 


3760 


LDX 


tt39 


3710 CLRl 




3720 


STA 


PMPTLINE,X 


3730 


DEX 




3740 


BPL 


CLRl 


3758 


RT5 




3760 : 






3779 ; 






3788 ; 


confirH the Clear 


3790 ; 


screen 


coMMand. 


3800 ; 






3818 ; 






3828 C 


HK5URE 




3838 


LDX 


ttl8 


3840 5 


1 LDA 


AY5PMPT,X 


3850 


STft 


PMPTLINE+28,X 


3860 


DEX 




3878 


BPL 


SI 


3888 G 


ETYM 


1 


3898 


J5R 


GETLET 


3988 


LDY 


tt8 


3918 


AND 


ttl27 


3928 


CMP 


tt'N 


3938 


BEQ 


NOSURE 


3948 


CMP 


»'n 


3958 


BEQ 


NOSURE 


3968 


CMP 


tt'Y 


3978 


BEQ 


ZSSURE 


3988 


CMP 


»'y 


3998 


BNE 


GETYN 


4888 


BEQ 


ISSURE 


4818 1 


lOSURE 




4828 


LDY 


t:i 


4838 ] 


[5SURE 




4048 


RT5 




4858 , 






4060 J 


_— ^^^— - 




4078 , 


Me Hake it here if the 


4080 


RETURN key was pressed 


4098 


Me will hawe to jump 


4180 


down 2 lines unless we 


4118 


are on the last line in 


4128 


which 


case we will have 


4138 


to return to the top line 


4146 






4158 






4168 1 


ilN 




4178 


LDA 


ROMCRS 


4188 


CMP 


ttl9 


4198 


BNE 


Rl 


4288 


JMP 


ENTERTEXT 


4210 


HI INC 


ROMCRS 


4228 


INC 


ROMCRS 


4230 


LDA 


tt2 


4240 


STA 


COLCRS 


4258 


J5R 


MVECRS 


4268 


JMP 


GETKEY 


4278 






4288 






4290 


; This 


is Where we end up 


4388 


; if one of the cursor 


4318 


; control keys is pressed. 


4328 


; He will wove in the desired 


4338 


; direction with full wrap- 


4340 


; around where required. 


4358 






4368 






4378 


CRSCTRL 




4388 


CMP 


ttSlC 


4390 


BEQ 


CRSUP 


4400 


CMP 


«S1D 


4416 


BEQ 


CRSDN 


4428 


CMP 


ttSlE 


4430 


BEQ 


CRSLT 


4448 






4458 


; A cursor right will fall in 


4468 


; to this part of routine. 


4470 






4488 


' LDY 


COLCRS 



4498 


CPY 


tt37 1 


4588 


BNE 


CRSDONE 1 


4518 


LDY 


»2 


4520 


STY 


COLCRS 


4530 


JSR 


MUECRS 


4548 


JMP 


GETKEY 


4550 ; 






4560 CRSUP 




4578 


LDY 


ROMCRS 


4580 


CPY 


tt3 


4590 


BNE 


CRSDONED 


4600 


LDY 


ttl9 


4610 


STY 


ROMCRS 


4620 


JSR 


MUECRS 


4630 


JMP 


GETKEY 


4640 ; 






4650 CRSDN 




4668 


LDY 


ROMCRS 


4670 


CPY 


ttl9 


4680 


BNE 


CRSDONED 


4698 


LDY 


n3 


4788 


STY 


ROMCRS 


4710 


JSR 


MUECRS 


4728 


JMP 


GETKEY 


4738 ; 






4748 CRSLT 




4758 


LDY 


COLCRS 


4768 


CPY 


tt2 


4779 


BNE 


CRSDONE 


4786 


LDY 


»37 


4790 


STY 


COLCRS 


4866 


JSR 


MVECRS 


4819 


JMP 


GETKEY 


4829 ; 






4838 CRSDONED 


4848 


JSR 


PRNTCHR ;Do double 


4858 CRSDONE 




4868 


JMP 


PRNTIT ;print. 


4878 ; 




__^_^_- — ^^ — ^ — ^^ — — ^^^ 


4888 ; 






4898 J 


This routine will print a 


4908 , 


single character stored in 


4918 , 


the AccuMUlator 


4928 , 






4930 J 






4940 r 


>RNTCHR 




4959 


PHA 




4960 


LDX 


U$2Q 


4970 


LDA 


ttPUTCHR 


4980 


STA 


ICCMD,X 


4990 


LDA 


»6 


5000 


STA 


ICBLL,X 


5016 


STA 


ICBLH,X 


5026 


PLA 




5838 


JMP 


CIOV ;auto return 


5848 






5050 






5060 


Delete a line of puzzle 


5070 


; text 


froM the screen. 


5080 


; Move 


all lines below this 


5090 


; line 


up one and erase the 


5100 


; last 


puzzle text line 


5110 


1 coMpletely. 


5120 






5130 






5140 


>ELINE 




5150 


JSR 


FINDLINE 


5160 


LDX 


ROMCRS 


5170 


I>1 LDA 


ZSCR 


5180 


CLC 




5190 


ADC 


tt86 


5200 


STA 


ZSCRi 


5210 


LDA 


Z5CR+1 


5220 


ADC 


no 


5230 


STA 


ZSCRl+1 


5240 


INX 




5250 


INX 




5260 


CPX 


tt21 


5270 


BEQ 


DBLNK 


5280 


LDY 


tt39 
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SS 



5290 

5308 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5918 

5928 

5930 

5940 

5950 

5960 

5970 

5980 

5998 

6008 

6018 

6028 

6830 

6848 

6858 

6060 

6070 

6080 

6098 

6100 

6110 

6120 

6130 

6140 

6150 



D2 LDO CZSCR1},V 
STft CZ5CR1,Y 
DEY 

BNE D2 
LDA Z5CR1 
STA ZSCR 
LDA ZSCRl+1 
STft Z5CR+1 
BNE Dl 

DBLNK LDY tt39 
LDA ttO 

D3 STA tZSCRJ,Y 
DEY 

BNE D3 
LDA tt2 
STfl COLCRS 
JSR FINDLINE 
LDY tt2 

LDA CZSCR1,Y 
STA OLDCHR 
JSR MUECR5 
JMP GETKEY 



; Insert a blank puzzle 




; line 


on the screen by 




; Hoving this line and 


all 


; others below it down 


one 


; Fill 


this line with blanks 


INLINE 






LDK 


ROMCRS 




CPX 


ttl9 




BEQ 


IBLNK 




LDA 


ttl 




STA 


CRSINH 




JSR 


MUECR5 




LDA 


n <LINEi9 




STA 


ZSCR 




LDA 


tt >LINE19 




STA 


ZSCR+1 




LDX 


tt21 




11 DEX 






DEX 






CPX 


ROMCRS 




BEQ 


IBLNK 




LDA 


ZSCR 




SEC 






SBC 


ttoe 




STA 


Z5CR1 




LDA 


Z5CR+1 




SBC 


UQ 




STA 


ZSCHl+1 




LDY 


tt39 




12 LDA 


CZSCR1),Y 




STA 


CZSCR),Y 




DEY 






BNE 


12 




LDA 


ZSCHl 




STA 


ZSCR 




LDA 


ZSCRl+1 




STA 


ZSCR+1 




BNE 


11 




IBLNK JSR FINDLINE 




LDY 


»39 




LDA 


tt8 




STA 


OLDCHR 




STA 


CRSINH 




13 STA 


CZSCR] ,V 




DEY 






BNE 


13 




LDA 


tt2 




STA 


COLCRS 




JSR 


MUECRS 




JMP 


GETKEY 




; Insert 


a Character at 


the 


; cursor 


position, Delel 


e 


; the last character on 


the 


; line also. 





INSCHR 
PHA 
JSR FINDLINE 



6168 

6178 

6188 

6198 

6288 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6378 

6380 

6390 

6488 

6418 

6420 

6438 

6448 

6458 

6468 

6478 

6488 

6490 

6500 

6510 

6520 

6538 

6548 

6558 

6568 

6570 

6580 

6590 

6608 

6618 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6698 

6788 

6718 

6728 

6738 

6748 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6828 

6838 

6840 

6850 

6860 

6870 

6888 

6898 

6988 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 



LDA tte 

LDY tt36 

STA CZSCR), Y 

PLA 

JMP PRNTIT 



; Find 


the current line of 


; text 


on the screen. It 


; will 


be found in ZSCR 


; when 


we are done here. 


FINDLINE 


LDX 


ROMCRS 


LDA 


SCREEN 


STA 


ZSCR 


LDA 


SCREEN+1 


STA 


ZSCR+1 


Fl LDA 


ZSCR 


CLC 




ADC 


tt40 


STA 


ZSCR 


LDA 


ZSCR+1 


ADC 


ttO 


STA 


Z5CR+1 


DEX 




BNE 


Fl 


RT5 




; This 


routine will wait and 


; do nothing until START is 


; pressed. 


PRSSTRT 




LDA 


«8 ; reset CONSOLE 


STA 


CONSOL jkeys With 8 


LDA 


CONSOL ;now read key 


CMP 


tt6 ;6=START 


BNE 


PRSSTRT ;not yet! 


RTS 


;got it. RETURN 


; This routine locks on CAPS 


; and turns off INVERSE and 


; then gets one key fron the 


; kei/board. The calling 


; routine will have to do 


; the range checks. 


GETLET 




LDA 


tt64 ; UPPERCASE 


STA 


SHFLOK ;lock 


LDA 


»0 ; INVERSE 


STA 


INUFLG ;off 


NOPRS 




LDA 


KEYPRS 


CMP 


»SFF 


BEQ 


NOPRS 


TAY 




LDA 


ttSFF 


STA 


KEYPRS 


LDA 


tS79J,Y 


RTS 




; Me coHe here when the user 


; wants 


to Clear out all 


; changes to the puzzle. 



CLRCHG 
JSR 
JSR 
LDX 

CL LDA 
STA 
DEX 
BPL 
JSR 
CPY 
BNE 
JSR 
JMP 



SUEPMPT 

CLRPRMPT 

«17 

CCGPMPT,X 

PMPTLINE+1,X 

CL 

CHKSURE 

ttl 

CP 

RSTPMPT 

GETEM 



u 
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7030 
7848 
7858 
7868 
7878 
7888 
7898 
7188 
7118 
7128 
7138 
7148 
7158 
7168 
7170 
7180 
7198 
7288 
7218 
7228 
7238 
7240 
7250 
7268 
7278 
7288 
7290 
7306 
7310 
7320 
7330 
7348 
7350 
7360 
7370 
7380 
7390 
7480 
7410 
7420 
7438 
7448 
7458 
7468 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7548 
7550 
7560 
7570 
7588 
7590 
7688 
7618 
7628 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7786 
7716 
7726 
7730 
7740 
7750 
7760 
7778 
7780 
7796 
7888 
7816 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 



CP JSR CHNGCLRS 
J5R CLRBUF 
PLA 
PLA 
JMP ENTERDONE 

i 

; Clear the changes line 

CHNGCLRS 

LDA U <FRSTLINE 

STft ZSCR 

LDA » >FRSTLINE 

STfl Z5CR+1 

LDX »9 
CPl LDA »8 

LDY «39 
CP2 STft tZ5CRJ,Y 

DEY 

BPL CP2 

LDA ZSCR 

CLC 

ADC tt8e 

STA ZSCR 

LDA ZSCR+1 

ADC tt0 

5TA ZSCH+1 

DEX 

BNE CPl 

RTS 



; Me Make it here when the 


; user wants to clear out the 


; edit screen. 


CLREDT 




JSR 


CLRPRMPT 


LDX 


ttl7 


CE10 LDA CPZPMPT,X 


STA 


PMPTLINE+1,X 


DEX 




BPL 


CE18 


JSR 


CHK5URE 


CPY 


ttl 


BNE 


CE 


JMP 


SAYSTART 


CE LDA 


SCREEN 


CLC 




ADC 


ttl28 


STA 


ZSCR 


LDA 


5CREEN+1 


ADC 


ttO 


STA 


ZSCR+1 


LDX 


tt9 


CLRLINE 




LDA 


tt8 


LDY 


tt39 


NL 




STA 


CZ5CRJ,Y 


DEY 




BPL 


NL 


LDA 


ZSCR 


CLC 




ADC 


tt80 


STA 


ZSCR 


LDA 


ZSCR+1 


ADC 


ttO 


STA 


ZSCH+1 


DEX 




BNE 


CLRLINE 


JMP 


EMTERTEXT 


; The user wants to start a 


; new puzzle. Me have to 


; proMpt the user to be sure 


; of th 


is. 



NEMPUZ 

JSR SUEPMPT 

JSR CLRPRMPT 

LDX ttl7 
NPl LDA NEMPMPT,X 

STA PMPTLINE+1,X 

DEX 



7900 
7910 
7920 
7938 
7948 
7958 
7968 
7978 
7980 
7998 
8888 
8810 
8820 
8830 
8040 
8858 
8668 
8876 
8880 
8890 
8188 
8118 
8128 
8138 
8148 
8158 
8168 
8170 
8188 
8198 
8286 
8218 
8226 
8238 
8248 
8258 
8266 
8276 
8286 
8296 
8366 
8318 
8328 
8330 
8346 
8356 
8366 
8376 
8386 
8398 
8488 
8416 
8426 
8436 
8446 
8456 
8466 
8476 
8488 
8498 
8586 
8516 
8528 
8536 
8546 
8556 
8568 
8578 
8588 
8596 
8666 
8616 
8626 
8636 
8648 
8656 
8668 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8768 



BPL 
JSR 
CPY 
BNE 
JSR 
JMP 
DONEM 

PLA 
PLA 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 



NPl 

CHKSURE 

ttl 

DONEM 

RSTPMPT 

GETEM 



SCREEN 

tt4e 

ZSCR 

SCREEN+1 

tt6 

ZSCR+1 



; Clear 


the entire screen 


LDX 


ttl9 


DOl LDA 


»8 


LDY 


«39 


D02 STA 


CZSCRJ,Y 


DEY 




BPL 


D02 


LDA 


ZSCR 


CLC 




ADC 


tt4e 


STA 


ZSCR 


LDA 


ZSCR+1 


ADC 


tt6 


STA 


ZSCR+1 


DEX 




BNE 


DOl 


JSR 


CLRBUF 


JMP 


ENTERTEXT 


; Clear 


the replacewent 


; letter buffers. 



CLRBUF 

LDX 1*26 

LDA »8 
D03 STA REPSET,X 

STA UNDOBUF,X 

DEX 

BPL D03 

RTS 



This routine will QUIT the 
puzzle after proMpting the 
user and then exit to DOS 



QUIT 

JSR 
JSR 
LDX 

Ql LDA 
STA 
DEX 
BPL 
JSR 
CPY 
BNE 
JSR 
JMP 

EXIT 

PLA 
PLA 
LDX 
LDA 
STA 
JSR 
LDX 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
CLC 



SUEPMPT 

CLRPRMPT 

»17 

QUTPMPT,X 

PMPTLINE+1,X 

Ql 

CHKSURE 

ttl 

EXIT 

RSTPMPT 

GETEM 



tt$10 

n$BC 

ICCMD,X 

CIOU 

n$20 

»$6C 

ICCMD,X 

CIOU 

tt64 

DLIENA 

741 
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877e 

8788 

8798 

8888 

8818 

8828 

8838 

8848 

8858 

8868 

8878 

8888 

8898 

8988 

8918 

8928 

8938 

8948 

8958 

8968 

8978 

8988 

8998 

9888 

9818 

9828 

9838 

9848 

9858 

9868 

9878 

9888 

9898 

9188 

9118 

9128 

9138 

9148 

9158 

9168 

9178 

9188 

9198 

9288 

9210 

9228 

9238 

9248 

9250 

9268 

9278 

9280 

9298 

9300 

9310 

9320 

9338 

9348 

9358 

9360 

9378 

9388 

9390 

9408 

9410 

9428 

9438 

9448 

9458 

9468 

9478 

9488 

9490 

9588 

9518 

9520 

9530 

9548 

9558 

9568 



ADC 
STfl 
STfl 
LDA 
5Tft 
STft 
LDY 
LDA 
STft 
INY 
LDA 
STfl 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



ttl 
568 
ZSCR 
742 
561 

ZSCH+1 
tt4 

CZSCR},V 
88 

CZSCR),Y 
89 

tte 

CRSINH 

tt$94 

BCK 

tt$CA 

LUM 

tt2 

COLCRS 

ni2 

KEYPRS 



9578 NXTLNE 



Me need to UNDO the last 
change Made by the user. Ne 
will have to swap the old 
rep buffer with the current 
buffer. This vay i/ou can 
UNDO the UNDO. Great uh?? 



UNDOIT 
JSR 
JSR 
LDX 

Ul LDA 
STA 
DEX 
BPL 
LDX 

U7 LDA 
PHA 
LDA 
STA 
PLA 
STA 
DEX 
BPL 
JSR 
LDA 
STA 
STA 

U2 LDA 
CMP 
BNE 
JSR 
J MP 



SVEPMPT 

CLRPRMPT 

ttl8 

UNDPNPT,X 

PMPTLINE+ie,X 

Ul 

tt25 

UNDOBUF,X 

REPSET,X 
UNDOBUF.X 

REPSET,X 

U7 

DOREP 

ttO 

19 

20 

20 

ttl88 

U2 

RSTPMPT 

GETEM 



Cone in here to do the 
actual changes to the puzzle 
Me have to check each screen 
location to see if there 
is a natch in the REPSET. Me 
also need to noue 'special* 
characters right on up with 
no changes. All 'SPACE'S are 
left alone. 



DOREP 

JSR PRNTREPSET 

LDA n <FR5TLINE 

STA ZSCR 

LDA « >FRSTLINE 

STA ZSCR+i 

LDA tt9 

STA ROHTMP 



9588 
9598 
9688 
9618 
9628 
9630 
9640 
9650 



LDY tt2 

CLC 

LDA ZSCR 

ADC tt40 

STA ZSCRl 

LDA ZSCR+1 

ADC ttO 

STA ZSCRl+1 



9660 CHKNXT 

9670 LDA CZSCR1],Y 

9688 CMP no 

9690 BEQ NXTCHR 

9700 CMP «S21 

9710 BCS CHKREP 

9728 INVIT 

9730 ORA ttSOO 

9748 CHS 



9758 
9768 



STA CZSCRJ^Y 
JMP NXTCHR 



9778 CHKREP 
9780 SEC 
9798 SBC »S21 
9800 TAX 
9810 LDA REPSET, X 
9820 CMP no 
9838 BNE INUIT 
9848 BEQ CHS 
9858 NXTCHR 



INY 

CPY tt38 

BNE CHKNXT 

CLC 

LDA ZSCR 

ADC ttse 
STA ZSCR 
LDA ZSCR+1 
ADC tt8 
STA ZSCR+1 
DEC ROMTMP 
BNE NXTLNE 
RTS 



9868 
9878 
9888 
9898 
9988 
9918 
9928 
9938 
9948 
9958 
9968 
9978 
9980 
9990 ; 

eioeee 

818810 
810820 
818830 
818048 
010050 
010860 
810870 
810080 
810090 

eioiee 

eiOllO SUEPMPT 

010120 LDX tt39 

810138 SUl LDA PMPTLINE.X 

818148 STA PMPTLN,X 

DEX 

BPL SUl 

RTS 



He need to save the prompt 
line in tenp storage before 
we pronpt the user with sowe 
kind of Yes/No question. Me 
will then be able to restore 
the pronpt line to it's 
original condition if they 
answer NO. 



Tine to replace the SAVED 
pronpt line back onto the 
screen. 



810150 

810160 

818178 

810188 

810190 

810200 

010210 

810228 

810230 

810248 

010250 RSTPMPT 

810260 LDX tt39 

010270 RSI LDA PMPTLN,X 

010280 STA PMPTLINE,X 

DEX 

BPL RSI 

RTS 



010290 
810300 
018318 
010320 
810330 
018340 
810350 
010360 



This Will take the REPLACE 
letters fron the pronpt line 
and use then to point into 



St 
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010378 

610380 

010398 

810488 

810418 

818428 

P 

818438 

010448 

018458 

818468 

818478 

818488 

818498 

818568 

618516 

810520 

818536 

810548 

810558 

816568 

616576 

616586 

818598 

616668 

816610 

816626 

616638 

816646 

010650 

010660 

018676 

010688 

816698 

610708 

810718 

010720 

018736 

618748 

616758 

010768 

016776 

616788 

818796 

610866 

616818 

010820 

010830 

010840 

010850 

010860 

010870 

010880 

010890 

010900 

010910 

018926 

618936 

810940 

010958 

010960 

616976 

616988 

818996 

811600 

611618 

611628 

811630 

011040 

011050 

011060 

011070 

011080 

011090 

011100 

011110 

011120 

011130 
011140 
011150 



REP5ET to Store the WITH 
Chars froH the proupt line 
so that the DOREP routine can 
Make changes to the puzzle 

Also going to save the old re 

set into the UMDO buffer. 



ST0REREP 

LDX tt25 
T0UNDO LDA REPSET,K 

STA UNDOBUFjX 

DEX 

BPL TOUNDO 



LDX 
DEX 
TORS 
TAY 
LDA 
STA 
SEC 
LDA 
SBC 
TAX 
LDA 
STA 
TYA 
TAX 
DEX 
BPL 
JSR 
RTS 



REPLEN 

TXA 

MITHCHRS,X 
ROMTMP 

REPLCHRS,X 
tt$21 

R0MTMP 
REPSET,X 



TORS 
DOREP 



This routine will print the 
current replacenent set on 
second line of the screen. 



PRMTREPSET 

LDX tt25 

LDY tt33 
PRl 

LDA REPSET,X 

CMP tt8 

BEQ PRll 

ORA tt$8e 
PRll STA REPLINE,V 

DEX 

DEY 

CPY 1*27 

BNE PRl 

LDA ttl3 

STA REPLIME,Y 

DEY 
PR2 

LDA REPSETjX 

CMP »e 

BEQ PR22 

ORA tt$88 
PR22 STA REPLINE,Y 

DEX 

DEY 

CPY »19 

BNE PR2 

LDA ttl3 

STA REPLINE,Y 

DEY 
PR3 

LDA REPSET,X 

CMP tt6 

BEQ PR33 

ORA tt$88 
PR33 STA REPLIHE,Y 

DEX 

DEY 

CPY »11 



811168 
811178 
611188 
611190 
011200 
011210 
011220 
011230 
011240 
011250 
011260 
011270 
011280 
011290 
011300 
011310 
011320 
011330 
011340 
011350 
011360 
011378 
811386 
811398 
011408 
011418 
611428 
611436 
611448 
011458 
611460 
811478 
811488 
811498 
611588 



BNE PR3 

LDA ttl3 

STA REPLINE,Y 

DEY 
PR4 

LDA HEPSET,X 

CMP tt8 

BEQ PR44 

ORA tt$86 
PR44 STA REPLINE,Y 

DEX 

DEY 

CPY »4 

BNE PR4 

RTS 



The user wants to go 
back to the REPLACE> 
pronpt. Me have to clear 
out the NITH> area of 
the line and do it 



BCKTDREP 

LDA tte 

LDX ttlS 
BRl STA MITHCHRS-5,X 

DEX 

BPL BRl 

LDX REPLEN 

JMP PRNTCRS 

K= $82Ee 

.HORD START 

.END 



m fc>l>^ 



CRYPT02.M65 



18 

26 

36 DLSTl 

46 

56 

66 

76 

86 

98 

0100 

0110 

0120 
0130 
0140 
8150 
8166 
6176 
8188 MANSCR 



.BYTE 112,112,66 

.MORD MANSCR 

.BYTE 8,2,144,2 

.BYTE 2,8,2,2,8,2,2,8 

.BYTE 2,2,6,2,2 

.BYTE 8,2,2,6,2,2,8,2,2,6,2,2 

.BYTE 144,2,144,2,8,2,65 

.MORD DLSTl 



The MAIN text entry and 
puzzle solving screen 



6196 
0200 



.SBYTE 
.SBYTE 



■ ABCDEF-GHIJKLM- 
■HOPQRST-UUMXYZ 



0210 REPLINE 



0220 
0230 



, SBYTE 
, SBYTE 



0240 FRSTLINE 

0250 .SBYTE " 

0260 .SBYTE " 

0270 .SBYTE ■■ 

0280 .SBYTE " 

0290 .SBYTE " 

0300 .SBYTE '" 

0310 .SBYTE " 

0320 .SBYTE "M SOLUER 

0330 .SBYTE " 

0340 .SBYTE " 

0358 .SBYTE " 

0360 .SBYTE " 

0370 .SBYTE " 

0380 .SBYTE " 

0390 .SBYTE " 

0400 .SBYTE "n Peck 

0418 .SBYTE '• 



CRYPTOGRA* 



by Kevi" 
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S) 



8428 
8438 
8448 
8458 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 
8548 
6558 
8568 
8578 
6588 
8598 
8688 
8618 
8628 
6638 
8648 
8658 
6666 
6676 
6686 
6698 
6788 
6718 
6726 
6736 
6748 
6758 
6768 
6778 
6786 
6796 
6888 
6818 
8828 
6838 
8846 
6856 
8868 
8876 
6886 
6896 
6988 
6916 
6928 
8938 
6946 
6956 
6968 
6978 
8988 
6998 
1888 
1618 
1826 
1638 
1848 
1858 
1066 
1676 
1686 
1898 
1168 
1118 
1128 
1136 
1148 
1156 
1166 
1178 
1188 
1198 
1288 
1218 
1226 
1238 
1248 
1258 
1266 
1276 
1288 



.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 

LINE19 

.SBYTE 
.SBYTE 

PMPTLINE 

.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 
.SBYTE 



■■ Press any k 
"ev to begin 



ELNl 



, SBYTE 
, SBYTE 

ELN2 

.SBYTE 
.SBYTE 

REPLCHRS = 

MITHCHRS = 

CNDl 

.SBYTE 
.SBYTE 

CMD2 

.SBYTE 
.SBYTE 



"oa 



"gj^ 



*t*"» 



QIBl 



"BCi to enter text 

PMPTLINE+ie 

PMPTLIHE+28 



ack 
dit 



ESL 



^ 



luit 



ew 
ndo 



Define Menory locations 



LUM = 
BCK = 
BRD = 
DMA = 
DLI = 
INUFLG 
SHFL6K 
C0L6RBK 
HSYNC = 
DLIUEC : 
DLIENA : 
CONSOL : 
SCREEN : 
UCOUNT : 
KEYPRS : 
ROMCRS : 
COLCRS : 
OLDCHR : 
ZSCR = 
ZSCRl = 
CRSINH : 
OPEN = 
CLOSE = 
GETCHR : 
PUTCHR : 
ICCMD = 
ICBAL = 
ICBAH = 
ICBLL = 
ICBLH = 
XCAXl = 
ICAX2 = 
CIOU = 



$82C5 

$e2C6 

$62C8 

$622F 

$6236 
: $82B6 
: $62BE 

= $D618 

$D46A 
: $6266 
: $D46E 
: $D81F 
: $58 
: $D48B 
: $62FC 
: $54 
: $55 
: $5D 

$CB 

$CD 
: $82Fe 

$63 

$8C 
: $87 
: $8B 

$6342 

$6344 

$6345 

$8348 

$8349 

$834A 

$8348 

$E456 



Char luMinance 
Background color 
Broder color 
DMA enable 
Dspl!/ List Addr 
Inv Video Flag 
Shft Lck 64=uppr 
Hrdwre Backgrnd 
Line Sync 
DLI vector 
DLI enable=l92 



Uept line count 
Last ket; press 
Cursor Row 
Cursor ColuMn 
Chr under crsr 
Z-page scrn pntp 
2nd Z scrn pntr 
Cursor OH/OFF 
CIO open 
CIO close 
CIO get 
CIO put 
CIO CHd 
CIO buff HI 
CIO buff LO 
CIO len buf 
CIO len buf HI 
CIO aux 1 
CIO aux 2 
CIO entri^ pnt 



Me have to set aside sone space 
for various tenporary variables 
All of that is done here. 



REPSET .D5 26 ;rplcMent letters 



1298 


PMPTLN 


.DS 46 ;Save & rep line 


1300 


ROMTMP 


.DS 1 


1318 


UNDOBUF 


.DS 26 ;undo buffer 


1328 
1338 
1348 
1358 
1368 
1378 


REPLEN 


.DS 1 ;Length of reps 


; Now we have sone screen pronpts 


; 




1388 


REPPMPT 


.SBYTE "Replace>" 


1398 


MTHPMPT 


.SBYTE "With>" 


1488 


ENTPMPT 


.SBYTE "Press Birirlfl" 


1418 


.SBYTE " When done" 


1428 


CPZPMPT 




1436 


.SBYTE "Clear Puzzle Text?" 


1448 


CCGPMPT 




1456 


.SBYTE "Clear All Changes?" 


1466 


AYSPMPT 


.SBYTE "Are you sure" 


1478 


.SBYTE " CY/NJ" " 


1488 


EDTPMPT 
.SB 
.SB 




1498 
1588 


vTi "i^nlf""-'-^*™^" 


1518 


QUTPMPT 




1528 


.SBYTE "Quit, Exit to DOS?" 


1538 


NEWPMPT 




1548 


.SBYTE "Start New Puzzle? " 


1558 


UNDPMPT 


.SBYTE "Last Change" 


1568 


.SBYTE " UNDONE." 


1578 


SCRN .BYTE "E:",$9B 


1586 


LFRT .BYTE "*4" 


1598 
1688 
1616 
1628 
1638 






1 The f 


irst DLI starts here 






1648 


:0UNT1 


.BYTE $FF 


1658 


COLORl 


.BYTE $86, $38, $82 


1668 


t 




1676 


»LI1 




1688 


PHA 


;lnterupt. Save A 


1698 


TXA 


;get x reg 


1788 


PHA 


;and save 


1718 


LDA 


UCOUNT ;Get U line 


1726 


CMP 


tt46 ;count and 


1736 


BCS 


CONT ;reset count 


1748 


LDX 


tt$FF ;on top of 


1756 


STK 


COUNTl ;screen 


1768 CONT 




1778 


LDX 


COUNTl jGet color count 


1788 


INK 


;add one 


1798 


LDA 


C0L0R1,X ;get the color 


1888 


5TA 


N5YNC ;wait for horiz 


1818 


5TA 


COLORBK ;stuff color 


1826 


STX 


COUNTl ;save new count 


1836 


PLA 


;Get saved X 


1848 


TAX 


;put in X 


1858 


PLA 


;Get saved A 


1866 


RTI 


; RETURN 


1876 ; 






1886 ; 
1898 ; 






This section of code will open 


1968 ; 


the screen editor for l/o 


1916 ; 


to wn 


te characters to the 


1926 ; 
1938 ; 
1948 ; 


screen. 






1958 G 


PNKYSCH 


1968 


LDA 


$FEFE 


1976 


CMP 


tt$6C 


1988 


BNE 


ISXL 


1998 


LDA 


tt$FE 


2886 


STA 


$79 


2818 


STA 


$7A 


2826 I 


SXL 




2838 


LDX 


tt$20 


2848 


LDA 


ttOPEN 


2858 


STA 


ICCMD, X 


2868 


LDA 


» <SCRN 


2676 


STA 


ICBAL, X 


2688 


LDA 


tt >SCRN 


2898 


STA 


ICBAH, X 


2166 


LDA 


ttl2 


2118 


STA 


ICAX1,X 


2128 


LDA 


ttO 


2138 


STA 


ICAX2,X 


2148 


JSH 


CIOU 


2156 


J MP 


SETMAIN 



iO 
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SUPER DATii BAJSE 1-2-3 

(mom ffAfT a rf£ to base) 

$59.95 * 

Will generatj?lH(ioj;ijstom software 
yieti will ever nded. 




/ 

1. Create P/ofesslonal Data Screens. 

2. Run Cust^ Reports. | 

3. Link Everything Together WHh ; 
Custom oKg Key Menus. / 

• Easy''.^anual and Tutorials • 


For IBM PC, PC Jr., XT 
^n Atari (except ST) Apple II, ME 
Commondore 64 

Hard Disk oompalibte - 36.000 Files 

■"^ • High Quality • 
Adventure Games Only $ 19.95 ea. * 


1. M. P. SOFTWARE 

Rt. 1 Box 362 
Ozark, Mo. 65721 

CaJI your k)cal dealer a us at 
(417) 485-6398 

'Add $3.00 shipping and handling 
Missouri residents add 5.25% sales tax 









MegaByte 

Computers and Electronics 

CallTOLLFREE 1-800-255-5786 ORDERS 
For any inquiries U713V338-2231 ONLY 


i3' *•**':■*'«* Pl*»«» C»ll For Low Prl 
Webster, Texts — /»..u i. 
jjj9g Oth<r It«m< 


ct% on Miny 






GAMES Applications 

DA RK CASTLE C*d- 3D 2J32 
27.97 59 J 7 
DUNGEON MASTER Cyber Control 
(IN STOCK!) 27.97 43,97 

Cyber Paint 
F-IS STRIKE EAGLE 47 97 


GracJePIus 


\S39.9y 





OAU>?riir *''^*,'*^' 

28 97 
GONE FISHIN 27.97 ''^"?;"°'-°^ 
MOEBIUS 38.97 „ ,,. '*■" 

OIDS 23.97 Publtthing Partner 
Police Quest 29.97 62.97 
Prr.jidenl Elect SupeiChaxjed 
28.97 EaayDraw 94.97 




TvRbo ST 

C:N\\IMtC(MtNl 

SUPBRCHARGK 

Vour^Tiio 

16 MHZ!!! 
$249.95 


CUSTOMIZED 
S499 ..-., 


Road War Europa 

25.87 Kums 

UUim*lV38.97 T--- ^ „ ~ .. *-_„ 
Warg.me Con.L Set TranSpUtCTS 

33,g7 IftrOmlrttUmttfll 


EkuihaI Fioppitt 


fTkUi* »!-■ •m))*«c lu ■*!*««• vlLtKrut avtl**. Ul |mi| l^lu«« FOLL f«nt.urT ■■i(««i.y 

rtlMM »«ri*«t. * ••,»» «ta*»»Bl. rla»*a «M >.•* far ▼!•• •■ MattarCam. ftlua l**al 
Milf^la^ la airallaiU* upM r.^aat 



CIRCLE #107 ON READER SERVICE CARD. 



CIRCLE #108 ON READER SERVICE CARD. 



A COMPUTER SOFTWARE SERVICES 
P.O. BOX 17660, ROCHESTER, N.Y. 14617 
ATARI " P'^°'^^ ^^'''^' 467-9326 

THE ^ 

$69.95 "SUPER ARCHIVER"!® 5--- 
(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATARI 1050! It eliminates the need for Patches, PDB files, Computer 
Hardware, etc Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER Is the most powerful 
PROGRAMMING/COPYING device available for the 1050! installation consists 
of a plug-In chip and 6 simple solder connections. Softwares Included. 
Features are: 




• TRUE DOUBLE DENSITY 

■ ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 

■ SUPPORTS EXTRA IVIEMORY 

• SCREEN DUMP to printer 

• TOGGLE HEX/DEC DISPLAY 

< SECTOR or TRACK TRACING 

• AUTOMATIC DIAGNOSTICS 

• DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



ARCHIVER/HAPPY ARCHIVER 

COMPATIBLE 

BUILT-IN EDITOR-reads, writes, 

displdys upto 35 sectors/track 

(short) 

BUILT-IN CUSTOM FORMATTER - upto 

40 sectors/track 

■ BUILT-IN DISASSEMBLER 

> BUILT-IN MAPPER - upto 42 sectors/ 

track 
• DISPLAYS/COPIES Double Density 

HEADERS 

■ AUTOMATIC FORMAT LENGTH 
CORRECTION 



• SIMPLE INSTALLATION 

The SUPER ARCHIVER Is so POWERFUL that the only programs we know of that 
cant be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 
FULL sectors/track). If you want It ALL. . . .buy the "BIT-WRITER"! also. . . .then 
you'll be able to copy even these programs! 



$79.95 



THE SUPER ARCHIVER 

$79.95 «BIT-WRITER"! 

The Super Arohlver "BIT-WRITER"! is capable of duplicating even the 
"uncopvable" EA and SYN series which employ 34 FULL sectors/track, "BIT- 
WRITER"! Is capable of reproducing these and FUTURE protection schemes 
of non physically damaged disks. PLUG-IN circuit board and 4 simple solder 
connections The SUPER ARCHIVER with "BIT-WRITER"! Is the ultimate PRO- 
GRAMMING/COPYING device for Atari 1050's EXACT DUPLICATES of originals 
are model Copies run on ANY drive. 



DEALER/DISTRIBUTOR/USER GROUP Discounts ovallable call for Info 
Phone Orders - IVIASTER CARD VISA 
Ivlall - IVIoney Orders. Check 



$69.95 



<< 



ULTRA SPEED PLUS! 



!'» 



A 

ATARI" 

$69.95 

Imagine a universal XL7XE Operating System so easy to use that anyone can operate 
it instantly yet so versatile and powerful that every Hacker, Programer and Ramdisk 
ov/ner v^iil wonder how they ever got along without it! Ultra Speed Plus puts 
unbelievable speed and oonvenience at your fingertips. Use ANY DOS to place 
an ULTRA SPEED format on your disks, boot any drive (1-9) upon power-up format 
your RAMDISK in Double Density activate a built-in 400/800 OS for software com- 
patibility plus dozens of other features to numerous to mention! Below are just a 
FEW features you'll find in the amazing OS: 



■ ULTRA speed S10 for 

most moditied drives 
> ULTRA Speed is loggleable 

• Boot directly Irom RAMDISK 

• Special limer circuits not re- 
quired tor 1 or 2 Meg upgra(ies 

• Backgroun(J colors adjustable 

• Reverse use of OPTION key 

• Cold-slarl without memory 
loss 

• Built in floppy disk configura- 
tion editor (1-9) 



• Built in RAMDISK configura- 
tion editor [1-9) 

• RAMDISK exactiv duplicates 
floppy drive so sector copy- 
ing and sector editing ore 
now possible 

• Built in MINI Sector Copier 

• Toggle SCREEN OFF for up to 
dO% increase of processing 
speed 

• Toggle internal BASIC 



• Rom resident disk loader 
program (MACH 10 menu) 

• DOUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test ttiot pin- 
points defective RAM cl^ip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems m 
one (XL/XE. 400/800. ULTRA 
SPEED PLUS) 



$29.95 RAMDISK "WRITE-PROTECTOR!" $29.95 

Hdckers, Programers, or BBS users. , . if you own a RAMDISK (memory upgrades for 
your XL or XE computer), think about this: Every disk drive ever mdnufactured has 
WRITE-PROTECT capabilities. , except your RAMDISK. Without it your valuable stored 
dofo/program lie ndked. awaiting that one mistake that v/ili wipe out hours, maybe 
weeks of precious programming efforts. End the fears of accidental formatting or 
overwriting by Installing our universal RAMDISK "Wrlfe-Protectorl" Works on all memory 
upgrades up to 2 megabytes. Simple installation. Only S29.95. 



'XF551 ENHANCER!" 



$29.95 



$29.95 

The XF551 Atari drive Is d fine product with one major flow. . . it writes to side TWO 
of your floppy disks BACKWARDS. This cduses redd/write Incompotlbilitv problems 
with oil other single sided drives made for Atdri such ds Indus, Trak, Rand, Fferoom, 
Astra, Atari 1050, Atari 810, etc Add the XF551 ENHANCER to the new XF551 drive 
and your problems dre overt This device will restore 100% compotlbllify between 
dll drives while retaining dll of the original design qudlltles of Ataris' super new drive 
The XF551 ENHANCER is a MUST for all XF561 owners, Installotion Is simple Only S29,96. 
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Unlock your 

Atari 




THE 

COMPLETE POCKET 

PROGRAMMING AID 



ONLY $7.95 ea. 



INTERNAL CODES 
PEEK & POKE LOCATIONS 
i 1 MACHINE LANGUAGE AIDS 
GRAPHIC MODE SPECIFICATIONS 
BASIC COMMANDS WITH ABBREVIATIONS 

ANALOG COMPUTING 



MAGAZINE FOR ATARI COMPUTEF 



C=IIMFIk-Dl3 



YES! 



Please send me 



ANALOG 



rCOMPUTING] 

P.O. Box 16927 
N. Hollywood, CA 91615 



Name 



Computing Pocket Reference Cards 

I am enclosing $7.95 per copy. 

D CASH a CHECK D CHARGE 



Card # 



Address 
City 



State 



Zip 



Exp. date 
Signature 



:bi 



f»ie: 





Enough Is Enough 

I lied. Just a little. I admit it! Last month 
I said you could turn your old 400/800 com- 
puter into a periptieral wittiout any tiardware 
chianges. Well thiat is only 80% correct be- 
cause whiile ttie computer goes untouched, 
you will need to build or modify cables (more 
on that later). Now, like I promised you, here 
is Atari Zucchini. 

Zucchini is a hardware project. 

Zucchini is a software project. 

Zucchini allows connection of a slave Atari 



to a host Atari through the serial port. 

Zucchini drives your printer directly 
through the joystick ports (remember them?). 

Zucchini is a 1K machine-language pro- 
gram on a boot disk. This makes it modifia- 
ble to create any number of new peripher- 
als and means it runs without DOS. 

Zucchini allows you to off load text at high 
speed and run the printer at low speed via 
its buffer. 

Zucchini allows you to print text as graph- 
ics to list your BASIC programs including all 
those unprintable ATASCII characters. 



Now that you know a little bit about what 
Zucchini is, let's look at how to build it and 
how it works. 

The Right Connections 

Before we get into the cable modifications, 
let's look at the job we need the cables to 
do. In order for an Atari to act as a peripheral 
we need to make several switches. The 
Data-in and Data-Out lines need to be 
reversed, the COMMAND line from the host 
computer needs to be attached to the IN- 
TERRUPT pin on the slave's serial port, and 



H09T 

COMMAND PIN 7 



INTERRUPT 



13 







SLAVE 

7 COMMAND 

13 INTERRUPT 



DATA IN 



DATA OUT 




DATA IN 



DATA OUT 



GROUND 



4,6 



RADIO SHACK 
#275-661 
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NOT CONNECTED: 


1 


CLOCK IN 


2 


CLOCK OUT 


8 


MOTOR 


9 


PROCEED 


10 


+ 5 VOLTS 


11 


AUDIO INPUT 


12 


+12 VOLTS 



n 



the Clock In and Clock Out completely dis- 
connected. I/O is asynchronous, and so the 
clock lines are not needed. You can either 
cross the slave's COMMAND to the host IN- 
TERRUPT or you can leave it detached (see 
XL/XE addendum). 

So that leaves us with three lines that need 
to be changed around. The problem is that 
you cannot simply exchange the pins in your 
cable because you need to boot load the 
Zucchini program before your extra com- 
puter can work as a slave. This requires the 
cable be "normal" to load Zucchini and "al- 
tered" to run it. What you need to do is add 
a multi-pole switch to the cable that connects 
your Zucchini 800 to your host computer. 
You can flip the switch one way to load and 
the other way to use as a peripheral (see 
Figure 1). 

One other problem which you will incur: 
both host and slave have -f5 volts availa- 
ble on Pin 1 of the serial plug. If both com- 
puters are connected together through these 
pins, then one can pull power from the other 
if it is turned off thereby overloading power 
supplies. If you simply cut this wire or dis- 
connect the pin in your cable, you will not 
be able to boot load the program because 
the disk drive will not operate unless it senses 
-1-5 volts on Pin 10. So you also need to 
modify the cable that normally hooks to your 
host computer by cutting the lead from Pin 
10. This blocks power from flowing between 
the two computers but it also means that you 
must boot UD Zucchini first and that Zucchi- 
ni must be powered up for you to use the 
disk drive with your host. Similarly the 
800/400's have + 1 2 volts on Pin 1 2, but you 
should disconnect this since it is unused. 

If you are lazy like me, you will want to 
build an automatic switching mechanism. 
The 4053 CMOS IC suits the bill. Originally 
designed to be an electronic switch for au- 
dio signals, it seems to work just fine for this 
purpose. After all, there is not much differ- 
ence between high-frequency audio and 
19,200 baud. 

This circuit connects the Zucchini serial 
port up in normal fashion, but will switch sig- 
nals automatically to the slave position when 
the cassette control line is turned on by ZUC- 
CHINISOFT after it boot loads. This circuit 
has a diode in the power lead to block pow- 
er influx from the host. In order to prevent 
power egress, you need to insert another di- 
ode into the first cable from the host where 
you cut it before, I used the circuit board 
and added another 13-pin serial socket 
to allow additional peripherals to be added 
(such as the 410 cassette or my ALPHA- 
COM 42 printer which do not have their own 
additional receptacles). I cannibalized a disk- 



(4 



Hosl Serial 
Bus 
7 • 



Any Diod* 




— |>H'*-KI— WWW 



Add.d .o Dl 100 

Main CabI* 



Slave 
Bus 

• 7 Command 



« 13 Interrupt 



« 8 Motor 



♦ 10 +5 Volts 



• 3 Data In 
«5 Data Out 



• 4,6 Ground 




Jucchinj 







ii'V — ""SSI 
■ \V" •":;«• 




drive cable which I happened to have lay- Next you will need to build the phnter ca- 

ing around, but you can build your own Zuc- ble. You need three joystick cables and a 

chini interface using ribbon cable and new 36-pin male, Centronics printer plug. Solder 

plugs. See the end of this article for sources, the wires according to this diagram: 
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JOY- 
STICK 


PIN 
tt 


PRINTER CABLE 

CEKTBOklCS 
PLUG PIM tt 


FUHCTIOM 

Data 
Data 1 
Data 2 
Data 3 
Busy 
Grounds & 

Data 4 
Data 5 
Data 6 
Data 7 
Grounds $ 

Strobe 
Grounds & 




i 


1 
2 
3 
A 
6 
8 


2 

3 

4 

5 

11 

16,17,19 


Returns 


2 


1 
2 
3 
4 
8 


6 
7 
8 
9 
16,17,19 


Returns 


3 


1 1 

8 16,17,19 

18 1 

OOOOOOOOOODOOOOOOO 


Returns 




OOOODOOOOOODOOOOOO 

36 19 
Centronics Plug 
solder Side 





You can use IDC plugs and ribbon cables, 
but I found the joystick replacement cables 
as easy as any to use. When done, plug the 
36-pin plug into your printer and the joystick 
cables into their proper outlets on your Zuc- 
chini. Run the following program to test the 
cable: 

10 DIM WORDS C20J :MORDS="ZUCC 

HIMI INTERFACE" 

20 PORTfl=54015!PORTB=54017:P 

flCTL=54018;PBCTL=54019 

30 P=PEEKCPflCTLJ :POKE PftCTL,P 

-4:P0KE P0RTft,255:P0KE PflCTL, 

P 

40 PrPEEKtPBCTL) :POKE PBCTL,P 

-4:P0KE PORTB,l!POKE PflCTL,P 

50 FOR S=l TO LENCMORD$} :POKE 

PORTA, ftSCtWORDSCSJJ 

60 IF TRIGtO)=l THEN 60 

70 POKE PORTB,0:POKE P0RTB,1: 

NEXT S 



then type in the source code and list to disk 
as ZUCCHINI. SRC before assembling. Now 
assemble and check for errors. When error- 
free then re-list to disk. At this point format 
a blank disk to hold your final assembly. Now 
for the final assembly, change the variable 
ORIGIN to $0700 and assemble again. 
Since the program assembles into DOS's 
space, you cannot save, list, or otherwise 
use DOS once you have done your final as- 
sembly. At the end of the assembled pro- 
gram is a routine to transfer the program to 
disk as a boot file, so go to BUG and run 
at the address of ENDPRO. If you want to 
modify your program then all changes must 
be between START and ENDPRO. You 
need to set ORIGIN about 2K above the end 
of your source code to allow space for as- 
sembly so as to not overwrite the source. 
You can delete all the commentary to cre- 
ate more free buffer space. When your modi- 
fied program is debugged, LIST to disk and 
follow the above procedure to create the 
boot disk. 



Eating Zucchini 

To use your new interface, connect up 
your Zucchini 800 to the serial bus using 
your Zucchini interface and then connect the 
host computer with the modified regular 
cable. 




You should recognize how Lines 20-40 
convert the joysticks to output. TRIG(O) is 
used as the "Busy" indicator for the printer 
and will read when the printer is idle and 
1 if busy or disconnected. If it works, then 
you are ready to go on to the programming. 



The Program 

If you subscnbe to ANALOG on disk you 
can load Zucchini. BAS and skip on down a 
ways. But if you are not lucky enough to 
have the disk, then type in the BASIC listing 
and save it to disk as Zucchini. BAS before 
running. Now run the program. If the data 
is correct then the program will halt and give 
you a message to remove your program disk 
and insert a new, blank disk which will be 
formatted by your BASIC program. Then 
press return and the boot file will write to the 
disk. If you left your program disk in the drive 
you would have just lost everything! 

If you want to understand the program 
better or modify it for your own purposes, 
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Load the ZUCCHINISOFT boot disk into 
Drive 1 and power up your Zucchini 800. It 
takes about two seconds to load and the 
console speaker will beep once when it is 
ready, but will beep continuously if the 
printer is not online. Once your Zucchini is 
online with the printer running, remove the 
disk and proceed to boot up the host com- 
puter as usual. Now you can use your printer 
just as you normally would using LPRINT or 
PRINT #1 . The big advantage is the speed 
with which the computer is freed up. Try this: 



10 DIM WORD$C52O0} ,AB$C261 

20 ftB$="ftBCDEFGHIJKLMNOPQRST 

UUWKYZ" 

30 FOR S=l TO 5200 5TEP26 : MO 

RD5tS)=flBS:NEKT S 

40 OPEN ttl,8,0,"P:":PRINT»l; 

MORD$: CLOSE HI 



It took one minute, 22 seconds to print 
WORDS with my AXIOM AT-846 interface 
and my Gemini 10X, but with my Zucchini 
800 it took only six seconds to transfer 



WORDS to the interface and only one 
minute, eight seconds to print. It took one 
minute to send last month's article to the in- 
terface and about eight or nine minutes to 
print. This is quite a time saver. But of even 
more value is this little trick. When the Zuc- 
chini interface is idle, press ESCAPE once. 
Now load a BASIC program into your host 
and then type LIST "P:". Pretty neat, huh? 
In case you missed it, your program is list- 
ed verbatim to the printer in graphics, not 
text, in 38-column format, exactly as it ap- 
pears on screen with inverse characters, 
graphics characters and so on. So what you 
say; you have several other programs to do 
this. Ah, but this one solves two problems. 
First is that it takes forever to print such a list- 
ing with a lister program while the Zucchini 
interface will take the program as text as fast 
as the host can send it. A typical program 
may take 30 to 90 seconds to dump but may 
take a half hour to print! Moreover, the 
carriage-return problem has finally been 
solved. 

What is the carriage-return problem? 
ATARI usesATASCII 155 (inverse ESCAPE) 
as the carriage return, but the printer and the 
rest of the world recognizes CHR$ (13) as 
a carriage return. So your interface must 
convert any bytes of value 1 55 to 1 3. When 
you go to print graphics, you will still con- 
vert any bit patterns of value 1 55 to 1 3. This 
plays havoc with your graphics representa- 
tion of the inverse "A" character and re- 
quires you to alter the character set or to 
replace all 1 55s with some other number. My 
AT-846 interface has a jumper option to ig- 
nore the conversion, but then you don't get 
any carriage returns unless you add a CHR$ 
(1 3) at the end of everything you print or by 
adding your own printer handler. So the only 
way to avoid this problem is Zucchini. To 
return to standard text, press ESCAPE again 
and when the interface is idle the conversion 
will occur. 

How much actual buffer space you have 
depends on your computer configuration. 
The OS uses memory up to Page 6 or 1 536 
bytes. Zucchini uses about 1200 bytes, so 
your buffer space starts at $0BB1 . A stock 
ATARI 400 will have about 1 3.5K free buffer 
space and an 800 with 48K will actually have 
46K buffer space or about 1 8 pages of text. 
I have only been able to fill up the buffer 
twice: once when I sent all three parts of this 
series at once (25 pages of text), and the 
other when printing a full-page poster from 
print sfiop. If you should be able to, the in- 
terface will merely cause the host computer 
to timeout for 28 seconds while the buffer 
empties a bit. When the retry occurs the host 
will then refill the buffer and timeout again. 
This continues until the host is done send- 
ing. You will also note that the printer slows 
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down a bit while data is being transferred. 
About the only thing that can go wrong is 
if the printer is offline and the buffer fills up. 
Then a real timeout can occur giving ERROR 
138. RESET will empty memory and restart 
the program with console beep and all. 

Zucchini Power 

While all this is impressive enough it only 
touches the surface of possibilities. The real 
power of the Zucchini interface is that it is 
programmable! Examples. . . 

There are many possible variations on the 
theme of printer interfaces that would allow 
some interesting possibilites. You still have 
three trigger lines and seven PORTS pins to 
play with. You can attach a second printer 
to PORTA and use TRIG1 for BUSY and bit 
2 of PORTA for a strobe. Now you have two 
printers on the same interface. Both the XL 
and XE OSs support multiple "P:" devices 
which have device IDs of $40 plus the printer 
number -1. So "P4:" would have an ID of 
$43. You could have one printer interface 
that would respond to OPEN #1,8,0,"P2:" 
or could drive both a P: and P2: from the 
same interface. But why stop there. You 
could probably run four printers simultane- 
ously from the same source. My XL supports 
up to P9: devicesi Great if you do mailingsl 
You could have several keyboard selec- 
table fonts. 

Besides the standard print mode there are 
two other print modes supportable by the 
printer handler. OPEN #1 ,8,68,"P:" changes 
the AUX1 byte of the command frame from 
"N"(78) to "D"(68) and sends data in 
20-byte frames. Originally this was for 
double-wide text. Similarly, OPEN 
#1 ,8,83,"P:" sends an "S"(83) for sideways 
(??) printing with 29-byte frames. You can 
use this for software selectable special ef- 
fects by adding code to recognize this. 

Your Zucchini can be programmed to con- 
vert ESCAPE or control code sequences 
from one format to another. Theoretically you 
could get your EPSON to respond just like 
an NEC printer or any other printer for that 
matter. 

Other possibilities? How about a ramdisk? 
You can use Device ID of $37 for "D8:". 
How about a slave terminal to your main 
computer? If you cross connect your COM- 
MAND line from your slave to INTERRUPT 
on the main computer, your slave can sig- 
nal the host it wants to send data. In fact it 
is possible to do networking or timesharingi 
You can produce an 850 emulator with 
four serial ports from the joysticks. Have you 
ever seen an 850 with a built-in 46K buffer? 
Or perhaps a buffer between your modem 
which can run out of the joystick (already 
available commercially). 

You can even create your own new kind 
of peripheral such as a large-scale security 



system with several "X:" devices all check- 
ing in with a central Atari computer. 

I could keep going on and on, but I am 
going to leave it up to you, the readers, to 
come up with the ideas. Please send them 
in. Let's create a Zucchini net. 

How It Works 

If you don't want to know all the details of 
how Zucchini works, you can stop here, but 
if you have that insatiable desire to know how 
things work, or if you plan to modify the pro- 
gram then read on. 

The first part of the program is all housekeep- 
ing and initialization. It sets up memory 



pointers and changes interrupt vectors to 
point to our own routines. ANTIC DMA is 
turned off, and we replace the keyboard 
handler with one of our own to detect the es- 
cape key. In addition we insert our own SIO 
interrupt handlers. After the initialization the 
printer is tested and the beep routines are 
used to signal readiness. RAM is partitioned 
with the program starting at $0700 or Page 
7, the holding buffer at Page 6 and the re- 
maining RAM above the program for the 
main buffer. RAMTOP is used as the top end 
pointer and LOMEM the bottom (LOMEM 
was moved during the boot to point to the 
end of the program). 
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The main printer loop has two pointers 
which control the flow of data. Refer to the 
Zucchini flow chart. 

BUFEND points to the last byte loaded 
from the host computer and BUFPNT points 
to the current byte to be printed. So long as 
BUFPNT equals BUFEND the loop will idle. 
When new data is loaded by the receive rou- 
tines, BUFEND is pushed up in RAM, and 
the printer loop begins transfer to the printer 
until the pointers are the same again. When 
the COMfVIAND line goes to signaling a 
COMMAND frame, it causes an IRQ inter- 
rupt because of the connections we made 
in the cables and the new interrupt handlers. 
This interrupt sets the RCVFLG to 1 . This flag 
will signal the main loop to break out and go 
to the RECEIV loop. There are two places 
in the main loop where this flag is tested; the 
idle loop at the beginning and the printer wait 
loop. If the flag is set at either point then the 
RECEIV loop is entered. 

Receive Loop 

The buffer size is set for four bytes and 
POKEY initialized for reception. An idle loop 
is entered and Zucchini waits until the 
RECeive COMplete flag is set indicating that 
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all four bytes and checksum have been 
received. Then the PA1 interrupt is altered 
to respond to the positive transition of COM- 
MAND as it returns to Logic 1. Once the 
command frame has been received the pro- 
gram tests for the proper device ID number. 
If wrong, then you get dumped back to the 
main loop and there is no response to the 
host computer. If the ID is correct, then the 
program sends an ACK and tests for WRITE 
or STATUS. If it is a status command then 
a separate routine is entered that sends a 
CMP followed by the status frame of five 
bytes after which control returns to the main 
loop. If a WRITE was called for, then the pro- 
gram moves to the next phase. POKEY is 
then set up for a 40-byte data frame, and 
then you go into another holding loop until 
RECOMP is set again. If there are no errors 
in data reception, then an ACK is sent and 
the data is moved to the main buffer. 

As each byte is moved, a temporary 
pointer is advanced until the whole 40 bytes 
is transferred, an EOL is encountered, or you 
run out of free buffer space. If the process 
can be completed then BUFEND is set to 
the value of the temporary pointer and a 
CMP byte is sent. If the main buffer gets 
filled, then the temporary pointer will be 
equal to BUFPNT at some point during the 
transfer process. If this occurs, then the pro- 
gram returns to the main loop without send- 
ing the CMP byte or updating BUFEND. The 
result is that the host computer does a 
timeout for 28 seconds, during which up to 
2000 characters can be emptied from the 
buffer to make more space. Without updat- 
ing BUFEND, no data was really transferred 
to the main buffer. If a pointer runs up to the 
top of RAM, it is "wrapped around" to the 
bottom of the buffer RAM. This means that 
every free byte in the main buffer is always 
available and as material is emptied from the 
buffer, more space is made available for use. 

Besides the main-line program there are 
many interrupt routines including the VSE- 
RIN, VSEROR, VSEROC and the PA1 or IN- 
TERRUPT routines. Additionally, there is a 
routine to set a stage-one VBLANK timer to 
a half second for the timeout value so if the 
host computer blows up in the middle of data 
transfer, the program will not lock up but 
return to printing. You can see from this sys- 
tem that only a portion of time spent in data 
transfer is actually spent in receiving data. 
So long as both the host and the computer 
agree, you could change the host's print 
buffer and your Zucchini to expect 256 byte 
data frames or do burst I/O. This would 
greatly increase transfer speed. 

The interrupt routines work essentially the 
same as the stock ones in the O.S., and you 
could save some RAM by using them. For 
some reason, though, I always got a check- 
sum error when I used the stock-receive in- 



terrupt but the stock send routines work 
okay. The description of how these interrupts 
work was covered in last month's article. 
One additional interrupt program uses 
POKEY'S keyboard interrupt vector and 
senses a pressing of the ESCAPE key set- 
ting the flag to produce graphics from the 
text for program listings. The graphics pro- 
gram itself takes the ATASCII code of the text 
data and obtains the bit values of the letter 
from the character set in ROM and shuffles 
it around to produce the 8-bit graphics 
values for the printer to use. You could have 
several different character sets which load 
from disk at boot time and are selected from 
the keyboard. 

Final Notes 

If you are a hardware genius and you 
have an EPROM programmer, you could 
place Zucchini into an EPROM and put it in 
cartridge to plug into the computer, since 
Zucchini does not need any language. But 
how you assemble a progrann into the same 
space as your assembler while the assem- 
bler is running is one problem I have yet to 
figure outi Of course you would lose 6-7K 
of buffer memory because a cartridge locks 
out 8K of RAM even though the program 
uses 1 K. You can increase your buffer size 
slightly by using PRNBUF, the normal printer 
buffer at $0300, for temporary buffer and be- 
ginning assembly at $0480 thus gaining 
about 600 bytes. However, you cannot use 
any floating point math or basic. But then you 
should not have the BASIC cartridge in place 
when you boot up Zucchini. 

This program was ohginally intended for 
use with a 400/800 computer but can be 
used with an XL or XE: read the addendum 
attached. I hope you found Zucchini as in- 
teresting and exciting as I have. I also hope 
you can find many new recipes. Next month 
we will pick up some of the remaining loose 
ends of the serial port and show you a few 
tricks with the cassette player. 

Parts List 

MOM Electronics ' • 

858 E. Congress Park Dr. 
Centerville, OH 45459-40721 
1-800-543-4330 

Atari Serial Cable, 6 ft. #83-365 $5.80 
Atari Serial Plug only #83-360 $1 .20 
Joystick Plug & Cord #83-070 $2.05 
Atari Serial P.O. Socket #83-140 $1.45 
36 Pin Centronics male #83-310 $1.95 

All Electronics 

905 S. Vermont Ave. 

Los Angeles, CA 90006 

1-800-826-5432 

Carries all parts except the Serial plugs and 

cables. D1 , D2, IC1 , 102, and R1 should be 



available at any electronics store or TV shop. 

XL/XE Addendum 

If you happen to have a leftover XL or XE 
computer you can take advantage of the ex- 
tra memory available to you. In the XL/XE 
you can switch out the O.S. ROM and have 
a large extra block of RAM available. Your 
program will have to work around the hard- 
ware registers though. This is okay because 
we really don't use any of the O.S. except 
the character set and the interrupts. The XE 
will do the same thing but also has its 64K 
of extra memory banks. Along with the ad- 
vantages, you have several problems to con- 
tend with. First is the question of joysticks. 
In these computers PORTS is not available 
externally and is used internally to control 
memory bank selection. That leaves you with 
only two joysticks and no strobe. So since 
you have only eight output bits you must do 
one of three things: 

1) Use seven bits for data and one for 
strobe. This is okay for text but prevents you 
from printing italics or special graphics 
characters depending on your phnter. Also 
most graphic dump programs are designed 
for eight bits, not seven. Clearly this is not 
a desireable solution. 

2) Rewire your Zucchini interface to free 
the slave's COMMAND line to use as a 
strobe. Once Zucchini is booted the COM- 
MAND line is not needed and can be divert- 
ed to the printer cable and be used as the 
strobe. You will also need to change any 
programming relating to PBCTL; otherwise 
you could really muck up things. PBCTL will 
then control memory banks and so on. You 
will not be able to drive multiple printers with 
this configuration. 

3) Use the 8-bit port adapter in ANALOG 
#44, July 1 986. This device also has the ad- 
vantage of allowing two printers to be used. 

The second problem to overcome is that 
once the O.S. is turned off to reveal the un- 
derlying RAM, you have no interrupt han- 
dlers, and so none of the Zucchini software 
can work without crashing. You need to sup- 
ply the interrupt vectors in the last eight bytes 
of RAM to point to your own interrupt proces- 
sors and change all the global interrupt vec- 
tors for the IRQ interrupts. If you have a copy 
of the O.S. source code, you are home free, 
so get a copy. Then you need to set RAM- 
TOP to somewhere below your routines and 
turn off the BASIC and MATH ROMs. You 
can bypass much of this by disabling the 
NMI and IRQ while accessing the RAM for 
printing or data transfer, then returning to the 
normal O.S. to process the interrupts. Using 
these techniques you can use a 1 30XE with 
about 120 K of RAM available for buffer 
space. Now where in the world can you get 
any other printer buffer with this capacity for 
$150? 
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e REM XKKKKKKMMKKKKKMXKKKKMKMKMXKKKM 

1 REM » ZUCCHINI PRINTER INTERFftCE » 

REM * by Lee 5. Brilliant M.D. k 

REM » Converts a 480/888 to an * 

REM * interface/buffer. » 

REM KKKKKKKMMKKKMKXKKXMXXKKKKXKKKM 

REM 
MI 18 DflTfl 8,18,8,7,6,7,169,177,141,231,2 

,169,11,141,232,2,1385 

2B DftTfl 169,26,133,18,169,7,133,11,24, 
96,169,8,141,47,2,141,1278 
FD 38 DftTft 166,11,141,172,11,141,178,11,1 

41,2,211,141,3,211,169,255,1956 
MA 48 DflTft 141,8,211,169,52,141,2,211,169 

,1,141,1,211,169,5,141,1765 
IJ 58 DflTft 3,211,162,8,169,128,141,4,2,16 

9,18,141,5,2,169,213,1521 
YY 68 DftTft 141,18,2,169,9,141,11,2,169,18 

4,141,14,2,169,18,141,1235 
EL 78 DATA 15,2,169,41,141,12,2,169,18,14 

1,13,2,169,168,141,8,1195 
UL 88 DflTfl 2,169,18,141,9,2,173,231,2,133 

,283,141,156,11,173,232,1788 
YM 98 DflTfl 2,133,284,141,157,11,169,40,14 

1,4,218,169,8,141,6,218,1738 
CX 108 DflTft 32,127,10,173,16,208,240,13,1 

73,172,11,240,246,169,160,32,2822 
KO 110 DflTft 195,18,76,144,7,169,255,32,19 

5,18,141,162,11,173,166,11,1757 
DK 128 DftTft 248,6,32,229,8,76,173,7,165,2 

83,205,156,11,288,21,165,1985 
IJ 138 DATA 284,285,157,11,288,14,173,165 

,11,285,164,11,240,223,141,164,2296 
PB 148 DATA 11,76,173,7,165,284,197,106,1 

44,13,173,231,2,133,283,173,2011 
NB 158 DATA 232,2,133,284,76,173,7,238,28 

3,288,2,230,204,173,164,11,2252 
XR 160 DATA 240,3,76,34,8,160,0,177,203,2 

01,155,208,2,169,13,32,1681 
UM 170 DATA 5,8,76,173,7,141,0,211,173,16 

,208,248,11,173,166,11,1619 
IV 188 DATA 248,246,32,229,8,76,8,8,286,1 

,211,234,238,1,211,96,2045 
VJ 190 DATA 234,96,160,0,140,163,11,177,2 

03,141,171,11,201,155,208,31,2102 
DU 200 DATA 172,160,11,208,3,76,249,7,169 

,0,162,8,32,5,8,202,1472 
AE 210 DATA 208,250,238,160,11,173,160,11 

,201,38,208,236,76,201,8,173,2352 
LK 220 DATA 160,11,208,11,162,3,189,173,1 

1,32,5,8,202,16,247,173,1611 
GA 230 DATA 171,11,16,8,41,127,141,171,11 

,206,163,11,201,96,176,12,1562 
JD 240 DATA 201,32,144,6,24,105,224,76,12 

4,8,105,64,133,201,169,0,1616 
EY 250 DATA 133,282,162,3,6,281,38,282,28 

2, 288,249, 24, 173, 244, 2, 181, 2150 
AQ 268 DATA 202,133,202,169,0,141,171,11, 

169,128,141,155,11,162,7,160,1962 
DM 270 DATA 7,177,201,24,45,155,11,248,1, 

56,110,171,11,136,16,241,1602 
EZ 280 DATA 78,155,11,173,171,11,77,163,1 

1,32,5,8,202,16,224,238,1575 
MP 290 DATA 160,11,173,160,11,281,38,208, 

10,169,0,141,160,11,169,13,1635 
DU 300 DATA 32,5,8,76,173,7,104,170,104,1 

68,169,0,141,166,11,169,1503 
EU 310 DATA 5,141,3,211,96,152,72,138,72, 

32,127,10,169,4,141,159,1532 
LK 320 DATA 11,32,174,9,169,7,141,3,211,1 

69,0,141,166,11,173,166,1583 
PE 330 DATA 11,208,15,173,172,11,240,246, 

76, 214, 8, 172, 170, 11, 192, 143, 2062 
OP 340 DATA 240,196,173,0,6,201,64,240,3, 

76,214,8,173,1,6,201,1802 
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249,96,e,e,e,e,e,i3ei 

XM 758 DATA 8,8,1,0,8,8,0,8,8,6,8,0,0,1,4 

8,75,125 
BG 768 DftTft 27,169,10,141,162,11,169,1,14 

1,1,3,169,87,141,2,3,1237 
KU 778 DflTft 169,8,141,4,3,169,7,141,5,3,1 

69,1,141,18,3,169,1135 
UX 788 DATA 0,141,11,3,32,83,228,48,38,17 

3,4,3,24,185,128,141,1154 
CA 798 DATA 4,3,173,5,3,185,8,141,5,3,238 

,18,3,288,3,238,1142 
NJ 880 DATA 11,3,286,162,11,288,221,184,9 

6,8,8,8,8,8,8,0,1022 
UU 1000 ? "IS'MFOR LINE=18 TO 888 STEP 18: 

T0TAL=8:? "TESTING LINE "jLINElFOR N=l 
TO 16: READ D:T0TAL=T0TAL+D:NEHT N 
IB 1010 READ D:IF T0TAL=D THEN 1830 
VM 1020 ? "laaa «* error in LINE '^LINE 

• II 4(J)(ll ■ 51'Qp 

DD 1030 CKSUM=CKSUM+TOTAL:NEHT LINE: IF CK 
SUM0134459 THEN ? "^S32 ** CHECSUM ER 
ROR )H(";END 

KG 1040 ? "l^I^a DATA IS CORREC T. INSERT 
BLANK DISK AMD PRESS filWlTniTl . " : ? :? "H 



RETURN 
AUTION. USE ONLY BLANK DISK!!! 



GG 1050 POKE 764,255 

Y5 1060 IF PEEKf764J<>12 THEN 1060 

HC 1070 ? :? ■■ 

254,»1,O,0,"D 



w^ism 



^ ^";XIQ 



» BY LEE BRILLIANT M.D. » 



YZ 1200 RESTORE : P0KL0C=1792 : FOR TIME=1 T 
80:F0R S=l TO 16:READ D:POKE POKLOC, 
D:P0KL0C=P0KL0C+1 

KN 1210 NEXT S; READ D:GOSUB 20 OO;NEXT TIM 

E:? :? " E2S3Cn£iI£EEI£i":A=usRC299 

3J:? :? ■' »»» DONE *«*»'■; END 

AS 2000 IF PEEK(755)=2 THEN POKE 755,0:RE 

TURN 

MR 2010 POKE 755, 2: RETURN 

I— istii-i,^ '3> - 

20 .TITLE ZUCCHINI PRINTER 

INTERFACE BUFFER CONVERSION 

30 ; 

40 ; KKKKKKKKKKKMICKKKKKKKKKKKIC 

50 

60 

70 

80 

90 

95 

0100 

0110 

8115 

8120 

0130 

8135 

8148 

8145 

8158 

8168 

8178 

6188 

0198 

6208 , 

8218 AUDCl = $D281 

8220 AUDCTL = $D208 

0238 AUDF3 = $D2e4 

0240 AUDF4 = $D206 

0250 BUFF = $0600 

0260 BUFPNT = SCB 

0270 CDTMAl = S0226 

0280 CHBAS = $02F4 

0290 CHLOC = $C9 

0360 CIOU = $E456 

0310 CONSOL = SD01F 

0320 CRITIC = $42 

0330 DOSUEC = $0A 

0340 ICCOM = $0342 

0350 IRQEN = $D20E 

0360 KBCODE = $D209 

0370 MEMLO = $02E7 

0380 PACTL = $D302 

0390 PBCTL = $D303 



PROGRAM CONVERTS A 400/^866 
COMPUTER TO A PRINTER INTERFACE- 
BUFFER AND PROGRAM LISTER. 
PRESS ESC TO CHANGE TO GRAPHICS 
PRINTING OF TEXT. 

USES SERIAL PORT TO CONNECT WITH 

MAIM SYSTEM, 

USES JOYSTICK PORTS TO INTERFACE 

MITH PRINTER. 



KMKKXKKKMMMKKKMXMMK 



» RAM ASSIGNMENTS » 
XXKXXXXXXXKXXKKXXXK 



8400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0588 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0886 
8816 
8828 
0830 
0848 
8856 
0860 
0865 
0876 
8886 
8896 
0900 
0910 
0915 
0920 
0930 
0946 
6958 
8955 
8966 
6976 
6980 
0996 
1866 
1818 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1105 
1110 
1120 
1130 
1135 
1140 
1145 
1150 
1160 
1170 
1175 
1180 
1190 



POKMSK 

PORTA = 

PORTB = 

RAMTOP 

SDMCTL 

SERIN 

5ER0UT 

5ETUBU 

SKRE5T 

SKCTL = 

SKSTAT 

SSKCTL 

TBUFPT 

TRIGO 

VINTER 

UKEYBD 

USERIN 

USEROC 

USEROR 



= SIO 

$D3eo 

$D301 
= $6A 
= $022F 

$D20D 
= $D20D 
= $E45C 
= $D20A 

$D20F 
= $D20F 
= $0232 
= $CD 

$D010 
= $0204 
= $0208 
= $e26A 
= $828E 
= $826C 



; KXKMKKXKKM 
;» VALUES * 
; KKXKXXXKXX 



ACK = 

CHKERR 

CMPLET 

EOL = 

ERR = 

FRMERR 

LENGTH 

NAK = 

OVRRUN 

TOUTER 



$41 
= $8F 
= $43 

$9B 

$45 
= $8C 
= $26 

$4E 
= $8E 
= $8A 



ORIGIN = $6600 



; KKXXMXKXKKKKKMKXK 
}* BEGIN PROGRAM « 
; XXXXKXXXXXXXXXXXX 



«= ORIGIN 

.BYTE ; HEADER 
; NUMBER OF SECTORS TO BOOT 

.BYTE ENDPR0-0RIGIN + 127/'128 
.HORD ORIGIN ;B00T LOCATION 
.NORD RESET ;INIT WARMSTART 

RESET 

LDA »ENDPR0&255 ; RESRUE SPACE 

STA MEMLO ;FOR PROGRAM 

LDA ttENDPRO/256 

STA MEMLO+1 

LDA »START&255 ; PLACE IN 

; RESET CHAIN 

STA DOSUEC 

LDA »START/256 

STA DOSUEC+1 

CLC 

RTS 
START LDA ttO 

STA SDMCTL 

STA RCUFLG 

STA TIMFLG 

STA STATUS 

STA PACTL 

STA PBCTL 

LDA »255 

STA PORTA 

LDA »52 



STA PACTL 
LDA ttl 
STA PORTB 



; INITIALIZE O.S. 
;ZERO ALL FLAGS 

; RESET PORTS 

;ALL PINS OUTPUT 

;FIX OUTPUTS AND 
SET INTERRUPT 



;OME PIN OUT FOR 
; STROBE 

LDA ttS ;FIX OUTPUTS AND 
; SET INTERRUPT 

STA PBCTL 
LDX ttO 

LDA ttC0NINT&255 ; CHANGE 
; INTERRUPT UECTORS 

STA UINTER ; FOR COMMMD FRAME 
LDA ttCOMINT/256 



JO 
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1200 
1210 
1220 
1230 
1240 
1250 
1260 
1265 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1345 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1475 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1668 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1695 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1825 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1955 
1960 
1970 
1980 
1990 
2000 



STfl VIHTER+1 

LDA ttRCUINT&255 

5TA USERIN ; SERIAL IN READY 

LDA »RCUINT/256 

5TA U5ERIN+1 

LDA tt5NDINT&255 

5TA VSEROC j5ERIflL OUT 

; COMPLETE 

LDft ttSMDIMT/256 

STft U5ER0C+1 

LDA tt5NDFRM&255 

STA USEROR ; SERIAL OUT REQST 

LDA ttSNDFRM/256 

STA USEROR+1 

LDA ttKEYBD&255 

STA yKEYBD JKEYBOARD 

; INTERRUPT VECTOR 

LDA ttKEYBD/256 

STA UKEYBD+1 

LDA MEMLO ; SET BUF POINTERS 

STA BUFPNT 

STA BUFEND 

LDA MEMLO+1 

STA BUFPNT+1 

STA BUFEND+1 

LDA tt$28 ; SERIAL BAUD RATE 

STA AUDF3 

LDA tt$O0 

STA AUDF4 
PRNTON JSR SETVBK ; SET 1/Z 

J SECOND TIMEOUT 

;IS PRINTER ON? 
;YES SO BRANCH 
J WAIT FOR TIMEOUT 



PRl LDA TRIGO 
BEQ BEEP 
LDA TIMFLG 
BEQ PRl 
LDA »$A0 
JSR TONE 
JMP PRNTON 

BEEP LDA tt$FF 
JSR TONE 
STA COUNT 



;SET BEEP TONE 

;TRY AGAIN 

; READY BEEPER 



MAIN LOOP FOR PRINTER 



MNLOOP LDA RCUFLG ;INCOHING DATA? 

BEQ TSTPNT 

JSR RECEIU 

JMP MNLOOP 
TSTPNT LDA BUFPNT ; ALL DATA SENT? 

CMP BUFEND ; COMPARE END DATA 
WITH CURRENT POINTER 



BHE TSTEND 
LDA BUFPNT+1 
CMP BUFEND+1 
BNE TSTEND 
LDA GRWANT 
CMP GRFLG 
BEQ MNLOOP 
STA GRFLG 
JMP MNLOOP 



; GRAPHIC OH TEXT? 



;YES, SET FLAG 

„ ;N0, GO BACK 

TSTEND LDA BUFPNT+1 ; END OF RAM? 

CMP RAMTOP 

BCC INCPNT ;0K 

LDA MEMLO ; MOUE POINTERS 

; TO START OF RAM 

STA BUFPNT 

LDA MEMLO+1 

STA BUFPNT+1 

JMP MNLOOP JLOOP BACK 
INCPNT INC BUFPNT ;INC POINTER 

BNE GRTST 

INC BUFPNT+1 
GRTST LDA GRFLG ;GRAPHICS? 

BEQ GETCH ;N0, PRINT TEXT 

JMP GRPRNT ;YES, GRAPHICS 
GETCH LDY «0 ;GET A CHARACTER 

LDA CBUFPNTJ,Y 
PREOL CMP ttEOL J CONVERT ATASCII 

; EOL TO PROPER EOL 

BNE PRNTCl 

LDA ttSOD 
PRNTCl JSR PRINT ; PRINT & RETURN 

JMP MNLOOP 
PRINT STA PORTA ;BIT5 TO PRINTER 



2010 


WTBUSV LDA TRIGO 


; PRINTER BUSY? 


2020 


BEQ PRNTCH 


;N0, BRANCH 


2030 


LDA RCUFLG 


;YE5, TEST FOR 


2035 


/ 


INCOMING DATA 


2040 


BEQ WTBUSY 




2050 


JSR RECEIU 


;G0 RECEIUE 


2060 


JMP WTBUSY 




2070 


PRNTCH DEC PORTB 


;SET STROBE 


2080 


NOP 


;WAIT FOR PRINTER 


2090 


INC PORTB 


; RESET STROBE 


2100 


RTS 




2110 


DELAY NOP 


; DUMMY DELAY 


2120 


RTS 




2130 


GRPRNT LDY ttO 


; PRINT TEXT 


2135 


i 


AS GRAPHICS 


2140 


STY IHUFLG 




2150 


LDA tBUFPNTJ 


,Y ;GET A CHAR 


2160 


STA TEMP 




2170 


CMP ttEOL 


;EOL? 


2180 


BHE TSTCNT 


;N0 BRCH TO PRINT 


2190 


LDY CCOUNT 


; YES-LINE FULL? 


2200 


BNE LINFIL 


;N0 SO FILL 


2210 


JMP PREOL 


;YES SO PRINT EOL 


2220 


LINFIL LDA ttO 


;FILL OUT PRINTER 


2225 


1 


LINE WITH 0S 


2230 


LDX tt8 




2240 


FILOOP JSR PRINT ;8 O'S PER CHAR 


2250 


DEX 




2260 


BNE FILOOP 




2270 


INC CCOUNT 




2280 


LDA CCOUNT 




2290 


CMP ttLENGTH 


;ALL LINE SENT? 


2300 


BNE LINFIL 




2310 


JMP EXIT 




2320 


TSTCNT LDA CCOUNT ; NEW LINE? 


2330 


BNE CONURT 


;ND SO BRANCH 


2340 


LDX tt3 




2350 


SNDCOD LDA CODE 


X ;SEND ESCPE SEQ 


2360 


JSR PRINT 




2370 


DEX 




2380 


BPL SNDCOD 




2390 


CONURT LDA TEMP 


; ASCII TO ATASCII 


2400 


BPL CONURl 




2410 


AND »$7F 




2420 


STA TEMP 




2430 


DEC INUFLG 




2440 


CONURl CMP tt96 




2450 


BCS X8 




2460 


CMP tt32 




2470 


BCC ADD64 




2480 


CLC 




2490 


ADC tt224 


1 


2500 


JMP X8 




2510 


ADD64 ADC tt64 




2520 


X8 STA CHLOC 


; MULTIPLY X8 TO 


2525 


J 


GET CH5ET OFFSET 


2530 


LDA tt0 




2540 


STA CHLOC+1 




2550 


LDX tt3 




2560 


ROT ASL CHLOC 




2570 


ROL CHLOC+1 




2580 


DEX 




2590 


BNE ROT 




2600 


CLC 




2610 


LDA CHBAS 


;ADD TO CHBASE TO 


2615 


f 


FIND LOC. IN RAM 


2620 


ADC CHLOC+1 




2630 


STA CHLOC+1 




2640 


SHIFT LDA ttO 


;CREATE NEW BYTE 


2645 


f 


FROM BITS OF 


2650 


STA TEMP 


;EACH BYTE IN CHR 


2660 


LDA tt$80 




2670 


STA BITMSK 


; SELECT WHICH BIT 


2680 


LDX tt7 




2690 


SLOOPl LDY tt7 




2700 


SL00P2 LDA fCHLOCJ,Y ;SAME BIT IN 


2705 


1 


EACH BYTE 


2710 


CLC 




2720 


AND BITMSK 




2730 


BEQ NXTBIT 




2740 


SEC 




2750 


NXTBIT ROR TEMP 




2760 


DEY 




2770 


BPL SL00P2 




2788 


LSR BITMSK 


;NEXT BIT 


2790 


LDA TEMP 




2800 


EOR INUFLG 


;INUERSE CHAR? 
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2810 

2820 

2838 

2848 

2858 

2866 

2870 

2888 

2898 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3018 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3155 

3160 

3170 

3180 

3190 

3200 

3210 

3215 

3220 

3230 

3235 

3240 

3250 

3260 

3270 

3275 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3355 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3485 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3605 



JSR PRINT 

DEX 

BPL 5L00P1 

INC CCOUNT 

LDfl CCOUNT ;ftLL CHARS SENT? 

CMP ttLENGTH 

BNE EXIT2 
EXIT LDft ttO ; RESET CCOUNT 

STA CCOUNT 

LDA tt$0D ;SEND EOL 

JSR PRINT 
EXIT2 JMP MNLODP 



; K)(KKXK1CXKK 
J» RETURN » 
I KXKMKKMXKM 



RETURN PLA 
TAX 
PLA 
TAY 

LDA no 

STA RCUFLG 
LDA tt5 
STA PBCTL 
RTS 



; RESTORE REGS 

;ZERO FLAG 

; RESTORE UINTER 



KXXXXXXKXKXXXXXXXKX 



» RECEIVE ROUTINE * 
XXKKXXXXKKXXKXXXXKK 



RECEIU TYA 

PHA 

TXA 

PHA 

JSR SETUBX 

LDA tt4 

STA BUFSIZ 

JSR GETFRM 
CNGINT LDA tt7 



; RECEIVE A DATA 

FRAME 

;SAUE REGISTERS 



;SET TIMEOUT 

;« OF BYTES IN 
IN COMMAND FRAME 

; CHANGE UINTER TO 

RESPOND 

;T0 + TRANSITION 



STA PBCTL 
LDA ttO 
STA RCUFLG 
INTWAT LDA RCUFLG ;WAIT FOR END 
; OF COMMAND FRAME INTERRUPT 
BNE TSTDEU j YES SO BRANCH 
LDA TIMFLG ; TIMEOUT? 
BEQ INTWAT J NO-KEEP MAITING 
JMP RETURN ;YES-RETURN 
LDY STATUS ; OPERATION OK? 
CPY ttCHKERR j YES 50 BRANCH 
BEQ RETURN ;ERROR SO GO BACK 

TSTDEU LDA BUFF ; FIRST BYTE IS 
; DEVICE ID 

CMP «S40 ; RIGHT DEUICE ID? 
BEQ THISDU ;YES SO BRANCH 
JMP RETURN ;N0 SO RETURN 

THISDU LDA BUFF+1 ; CHECK COMMAND 
CMP ttS57 ; WRITE? 
BEQ FRMOK ; YES SO GO ON 
CMP «$53 J STATUS? 
BNE MNGCON ; NO-WRONG COMMAND 
JSR GDSTAT ;SEND STAT FRAME 
JMP RETURN J BACK TO MNLOOP 

WNGCOM LDY ttNAK ; WRONG COMMAND 
JSR SDSTAT 

JMP COMPLT ;SEND A COMPLETE 
; AND RETURN 

SNDACK LDY ttACK ;SEND AN ACK 
JMP SDSTAT 

FRMOK JSR SNDACK ; COMMND FRAME OK 



LDA 040 
STA BUFSIZ 
JSR GETFRM 
LDY STATUS 
BEQ MOUBUF 
LDY ttERR 
JSR SDSTAT 
JMP COMPLT 
SNDSTS JSR SDSTAT ; NO SO SEND 

; ERROR AND RETURN 



;DATA BUF SIZE=40 
;G0 RECEIVE FRAME 
; FRAME OK-BRANCH 



3610 

3620 

3630 

3640 

3650 

3655 

3660 

3670 

3680 

3690 

3700 

3710 

3715 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3785 

3790 

3795 

3796 

3800 

3805 

3810 

3815 

3820 

3830 

3840 

3850 

3855 

3860 

3870 

3888 

3890 

3900 

3905 

3910 

3920 

3930 

3940 

3950 

3955 

3960 

3970 

3975 

3980 

3990 

4000 

4010 

4015 

4020 

4030 

4040 

4050 

4060 

4070 

4088 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4275 

4288 

4290 

4295 

4300 

4305 

4310 

4315 



;MAIN BUFF FULL? 



JMP RETURN 
MOUBUF JSR SNDACK ;ACK FRAME 

LDY no 
LDX no 

LDA BUFEND ; SET TEMP POINTER 
; TO END OF MAIN BUFFER 

STA TBUFPT 

LDA BUFEND+1 

STA TBUFPT+1 
INBFPT INC TBUFPT 

BNE MOVBFl 

INC TBUFPT+1 
MOVBFl 

LDA TBUFPT 

CMP BUFPNT 

BNE MOVBYT ; NO SO BRANCH 

LDA TBUFPT+1 

CMP BUFPNT+1 

BNE MOVBYT 

JMP RETURN ;MAIN BUFFER 

; FULL SO RETURN 

; RETURN WITHOUT CMP SENT CAUSES 
;HOST TO TIMEOUT FOR UP TO 56 
;SEC0ND5. 

J THIS GIVES TIME FOR BUFFER TO 
; EMPTY SOME. 

;CAN BE CHANGED BY ALTERING 
; COMMAND RESPONSE FRAME BYTE 3 
MOVBYT LDA TBUFPT+1 ;END OF RAM? 

CMP RAMTOP 

;N0 SO BRANCH 
; RESET POINTER 
; TO START OF BUFFER 

STA TBUFPT 

LDA MEMLO+1 

STA TBUFPT+1 

JMP MOVBFl 
GETBVT LDA BUFF,X ; MOVE A BYTE 

; FROM TEMP 

INX 
5T0BYT STA CTBUFPT) , Y 

CMP ttEOL ; CARRIAGE RETURN? 

BEQ ENDNOV ; YES-STOP DATA 

CPX tt4e ;N0 then WHOLE 

; BUFF MOVED? 

BNE INBFPT ;NO-GET NEXT BYTE 
ENDMOV LDA TBUFPT ;YES SO UPDATE 

; BUFFER POINTERS 

STA BUFEND 

LDA TBUFPT+1 

STA BUFEND+1 
COMPLT LDY ttCMPLET ;SEND COMPLETE 

; BYTE, AND RETURN 

JMP SNDSTS 



BCC GETBYT 
LDA MEMLO 



GET A FRAME 



;GET A DATA FRAME 
;ZERO VARIABLES 



; ENABLE RECEIVE 



GETFRM LDA ttO 

STA BUFRFL 

STA COUNT 

STA CHKSUM 

STA RECOMP 

STA STATUS 

JSR RECVEN 
CKTIME LDA RECOMP'jRECU COMPLETE? 

BNE GOBACK ;YES, RETURN 

LDA TIMFLG ; TIMEOUT? 

BEQ CKTIME ;N0 SO WAIT AGAIN 
TIMOUT LDA »TOUTER ; TIMEOUT 

STA STATUS 
GOBACK JSR DISABLE 

RTS 



INTERRUPT ROUTINES 



RECEIVE INTERRUPT DRIVEN 
BY VSERIN 



RCVINT TYA 
PHA 
LDA SKSTAT 



;each time there 
is a byte ready 

;THIS ROUTINE 

EXECUTES. 

; CHECK FOR SERIAL 

ERRORS 



12 
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4320 


STft 5KRE5T 


; RESET ERR REGS 


5120 


; DRIVEN BY VINTER 


4330 


BMI NTFRN 




5125 


/ 




4340 


LDY ttFRMERR 




5130 


COMINT LDA ttl 


jSET FLAG MHEN 


4350 


STY STATUS 




5135 


; MHEN COMMAND FRAME SET 


4360 


NTFRM AND tt$20 




5140 


STA RCVFLG 




4370 


BNE NTOURN 


; OVERRUN ERR? 


5150 


PLA 




4380 


LDY ttOVRRUN 




5160 


RTI 




4390 


STY STATUS 




5170 






4480 


NTOURN LDA BUFRFL 


5180 






4410 


BEQ NOTDON 


;TEMP BUF FULL? 


5190 


JSET TIMEOUT INTERRUPT 


4420 


LDA SERIN 


;CHECKSUM OK? 


5200 






4430 


CMP CHK5UM 




5205 


SETVBX 




4440 


BEQ SRETRN 




5210 


LDA ttSTIM0T&255 ;SET POINTER 


4450 


LDY ttCHKERR 




5215 


■ 


TO ROUTINE 


4460 


STY STATUS 




5220 


STA CDTMAl 




4470 


SRETRN INC RECONP ;SET RECEIVE 


5230 


LDA ttSTIMOT/256 


4475 


/ 


COMPLETE FLAG 


5240 


STA CDTMAl+J 




4480 


INTDON PLA 


; RESTORE Y 


5250 


LDK ttO 


;SET VB INTERRUPT 


4490 


TAY 




5260 


LDY tt30 


;l/2 SECOND MAIT 


4500 


PLA 




5270 


LDA ttl 




4510 


RTI 


;RETURN FROM 


5280 


SEI 




4515 


j 


INTERRUPT 


5290 


JSR SETVBV 




4520 


NOTDON LDA SERIN ;GET A BYTE 


5300 


LDA ttO 




4530 


LDY COUNT 




5310 


STA TIMFLG 


;ZERO TIMEOUT FLG 


4540 


STA BUFF,Y 


;PUT IN TEMP BUF 


5320 


CLI 




4550 


CLC 




5330 


RTS 




4560 


ADC CHKSUM 


;TOTAL CHECKSUM 


5340 


t 




4570 


ADC ttO 




5350 


STIMOT LDA ttl 


;5ETS FLAG AFTER 


4580 


STA CHKSUM 




5355 


f 


TIMEOUT 


4590 


INY 




5360 


STA TIMFLG 




4600 


STY COUNT 


;INC BUFF COUNTER 


5370 


RTS 




4610 


CPY BUFSIZ 




5390 






4620 


BMI INTDON 


;BUFF FULL? 


5400 


:NEW KEYBOARD INTERRUPT HANDLER 


4630 


LDA ttl 


;yes set flag 


5410 


;SETS FLAG ONLY 


IF ESC PRESSED 


4640 


STA BUFRFL 




5415 






4650 


JHP INTDON 




5420 


KEYBD LDA KBCODE ;GET ICODE 


4660 






5425 


f 


FOR KEYPRESS 


4670 






5430 


CMP tt28 


; ESCAPE? 


4680 


•SERIAL OUTPUT 


DATA REQUEST 


5440 


BNE KRETRN 


;N0, RETURN 


4690 


J DRIVEN BY VSEROR 


5460 


BEQ HANTGR 




4695 






5470 


DEC GRMANT 




4700 


SNDFRM TYA 


;SAgE Y 


5480 


JMP KRETRN 




4710 


PHA 




5490 


MANTGR INC GRMANT 


4720 


INC COUNT 


;ALL DATA OUT? 


5500 


LDA tte 




4730 


LDY COUNT 




5510 


STA CCOUNT 


;CHAR COUNT=0 


4740 


CPY BUFSIZ 




5520 


KRETRN PLA 




4750 


BCC ENDSND 


;N0 SO SEND 


5530 


RTI 




4760 


LDA CHKSNT 


;CHECKSUM SENT? 


5540 






4770 


BEQ SNDCHK 


;N0 SO SEND 


5550 


; TIMER 




4780 


LDA POKMSK 


;yes so change 


5560 






4785 




INTERRUPTS 


5565 


CONTDN 




4790 


ORA tt$08 




5570 


CONTDN DEX 


; SHORT INTERVAL 


4800 


STA POKMSK 




5575 


1 


TIMER 


4810 


STA IRQEN 




5580 


BNE CONTDN 




4820 


JMP IRETRN 




5590 


DEY 




4830 


ENDSND LDA BUFF 


,Y JSEND A BYTE 


5600 


BNE CONTDN 




4840 


STA SEROUT 




5610 


RTS 




4850 


CLC 




5620 






4860 


ADC CHKSUM 


;ADD TO CHECKSUM 


5630 






4870 


ADC »0 




5640 


JSPEAKER TONE ROUTINE 


4880 


STA CHKSUM 




5650 


TONE STA BUFSIZ 




4890 


IRETRN PLA 


; RETURN FROM 


5660 


STA COUNT 




4895 




INTERRUPT 


5670 


TONEl LDK COUNT 


;SET VALUES 


4900 


TAY 




5680 


LDY ttl 


;F0R TIMER 


4910 


PLA 




5690 


LDA tt255 




4920 


RTI 




5700 


STA CONSOL 


J MOVE SPEAKER 


4930 


SNDCHK LDA CHKSUM : SEND CHECKSUM 


5710 


JSR CONTDN 


;TIME DELAY 


4940 


STA SEROUT 




5720 


STY CONSOL 


;move other way 


4950 


LDA ni 


;AND SET FLAG 


5730 


INY 




4960 


STA CHKSNT 




5740 


LDX COUNT 


; DELAY 


4970 


JMP IRETRN 




5750 


JSR CONTDN 




4980 




' 


5770 


BNE TONEl 


;KEEP GOING 


4990 


; SERIAL OUTPUT 


INTERRUPT 


5780 


RTS 




5000 


;DRIUEN BY USEROC 


5790 






5005 






5800 






5010 


SNDINT LDA ttl 


;SETS FLAG AFTER 


5810 




5015 


f 


CHECKSUM SENT 


5830 




5020 


STA SNDFLG 




5840 






5030 


LDA POKMSK 


; RESTORE INTRRPTS 


5850 


SDSTAT TYA 


;SAVE Y 


5040 


AND tt$F7 




5860 


PHA 




5050 


STA IRQEN 




5880 


STA SNDFLG 




5060 


STA POKMSK 




5890 


STA BUFSIZ 




5070 
5080 
5090 


PLA 




5900 


STA COUNT 




RTI 




5910 


JSR 5ENDEN 


;ENABLE POKEY 






5920 


LDY tt2 


;l MILLISECOND 


5100 






5925 


; 


DELAY 


5110 


'; COMMAND FRAME 


INTERRUPT 


5930 


STY CHKSNT 
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XLorXEtomanipu- 
fet or type a document 
The 40-column screen 
XE is fine for utilities, games 
f&me light business programs, but it 
fimiting when you try to use it in an office 
setting. Atari engineers realized this years 
ago, when Warner still owned Atari home 
computers. They began design of an add- 
on to your XL or XE that would double the 
number of columns of your screen. After 
four years, the 80-column board is finally 



shipping, and reactions from tine general 
public seem to be fairly good, if not a little 
confused. 

The 80-column display unit (Model 
XEP80, $79.95) plugs into one of your 
joysticl< ports to communicate with your 
XE or XL. A jacl< on the rear of the box 
provides composite video output that can 
be connected to a standard monitor or TV 
with RF Modulator. According to Atari, 
several options were explored in which to 
connect the XEP80 to the Atari CPU. The 
joysticl< option won out. 

At the past Consumer Electronics 
Shows, Atari has shown the XEP80 run- 
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ning with a new version of AtariWriter Plus. 
The new AtariWriter 80 gives you the 
same functions as the original, but worl<s 
only with the XEP80 in operation. Atari first 
announced AtariWriter 80 two years ago, 
and has steadily pushed back the release 
date. According to William Robinson, the 
author of AtariWriter Plus, the original 
AtariWriter Plus depends heavily on quick- 
ly rewriting the XE's screen while you edit 
a document. The XEP80 must communi- 
cate over the joystick ports every time a 
character is to be plotted on the 
80-column screen. This takes a lot of time, 
so the original AtariWriter Plus program 
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has to be rewritten to comrnunicate quick- 
ly witti tine XEP80 unit. 

Atari lias also shown copies of a spe- 
cial version of Silent Butler, a general 
office-mate program which includes 
scheduling and time-management utilities. 
The new version makes use of the 
XEPSO's graphic abilities. 

Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

Add Some Speed to Your XE 

Alpha Systems is shipping the BASIC 
TurboCharger. Since Atari Basic 
can run machine-language programs, J. 
Bader came up with the novel approach 
of putting together a library of machine- 
language programs that can be incorpo- 
rated into your BASIC programs. The 
result is machine-language speed for 
commonly used functions such as 
memory movers, screen data manipula- 
tors, data searches and sorts, and screen 
animations. 

Machine-language routines to handle 
screen player/missile movement and other 
animation are included. High-speed disk 



load and save routines allow you to save 
Micropainter and character sets 
quickly. Some bit-blit operations are in- 
cluded, which are handy if you are writ- 
ing programs with screen painting 
functions. 

The TurboCharger comes with a 
128-page manual and diskette for only 
$24.95. The diskette contains many short 
machine-language routines that are com- 
pletely documented in the manual. 

Alpha Systems 
1012 Skyland Drive 
Macedonia, OH 44056 

XE Game 

The XE Game system was released last 
year and has been well received among 
the stores that sell video-game machines 
such as the Nintendo and Sega Systems. 
Atari is releasing even more games for the 
XE game system. Among the new 
products are some 8-bit reworkings of 
classic arcade games. Cartridges of 
Food Fight, Crossbow, Mario 
Brothers, Comando and Crystal 
Castles are all slated for release this 
summer at a $19.95 list price. Original ti- 



tles are also being released. Into the 
Eagles Nest is an arcade-style game 
from Pandora Software. Airball, Dark 
Chamber (a D&D-style game) and an 

original 8-bit version of Mean 18 (a popu- 
lar golfing game) are slated for summer 
release. 

The XE game system has been selling 
fairly well into a market dominated by Nin- 
tendo and Sega. The XE Game system 
has a list price of $149.95, which is high 
compared to its competition. Some of the 
success is attributed to the ability to use 
the XE Game system as a home computer 
by attaching an available keyboard. 

Atari Title, Just Call Me Sir 

Datasoft is shipping Video Title 

Shop, a graphic utility program that lets 
you create your own video effects that you 
can use for your home-videotape movies. 
This is a 'must have' program if you are 
one of the millions of people that have pur- 
chased video Camcorders (those little 
hand-held portable videotape camera and 
recorders). 

Video Title Shop comes with a copy 
of Micropainter Plus, the original 
painting program for the 400/800. 
Micropainter is still one of the easiest 
and most powerful graphics-painting util- 
ities for the XE and XL. Using 
Micropainter, you can draw a screen 
graphic and then use the other utility pro- 
grams to superimpose animated text and 
icons moving over the screen image. The 
result is semiprofessional-looking animat- 
ed video titles. 

The program carries a $29.95 list price 
and includes a fairly comprehensive 
manual that describes most of the pro- 
gram's features. A second diskette is in- 
cluded that contains a number of interest- 
ing paintings that can be modified for your 
own use. 

Hamburger/BASIC Helper 

A program that adds extra commands 
to your Atari BASIC is now available from 
Ronald Hathaway. Enhancements to 

BASIC 11 adds some handy functions to 
BASIC. String searches through your pro- 
grams, multiple-line deletions, renumber- 
ing, automatic renumbering, program 
tracing and variable name changes are 
now supported. The package comes with 
a small 30-page manual and reference 
card for only $24.95. The program works 
with Atari BASIC revisions A, B and C. 

Hathaway Electronics 

PO Box 168 

Rices Landing, PA 15357 
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rom time to time 
I feel I need to 
remind you tiiat com- 
puters were originally 
invented to perform 
computations. Yes, I 
know that spiffy visual 
and sound displays actu- 
ally comprise the Atari 
appeal, but it all boils 
down to arithmetic in 
the end. Today i*d like to 
talk about different 
ways to store numbers 
in the computer, and 
present some methods 
for interconverting char- 
acters and numbers. A 
consequence of this dis- 
cussion is that soon we'll 
learn how to keep track 
of scores in such excit- 
ing games as **Attack of 
the Suicidal Road-Racing 
Aliens.** 
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So far, Boot Camp has focused on 
the most basic method for storing num- 
bers in the computer, as binary in- 
tegers. As you know, each byte of RAM 
can contain decimal value from 
through 255 (hex $FF), based on the 
pattern of ones and zeros in the eight 
bits which make up the byte. If both 
positive and negative numbers must be 
accommodated, the most significant bit 
(bit 7) is reserved as a sign bit. If bit 7 
is set, the munber is negative; if cleared, 
the number is positive. This method 
leaves only seven data bits, so signed 
numbers ranging from -128 through 
+ 127 can be represented in this way. 

Often we must deal with numbers 
larger than 255. We've used two adja- 
cent bytes in RAM for this purpose, giv- 
ing us 16 bits of unsigned data, or 15 



bits for signed numbers. With 16 bits 
we can represent decimal numbers 
ranging from through 65535 ($00 
through $FFFF), or signed numbers 
from -32768 through +32767. 

This is all very fine, but it doesn't 
cover all our needs. Many numbers en- 
countered in real life have fractional 
(decimal) parts, such as 7345.022. Ob- 
viously, the integer representation fails 
here. A more elaborate method for stor- 
ing these so-called floating point num- 
bers is used in the Atari, wherein each 
number occupies six bytes of RAM, 
regardless of its magnitude. Floating 
point storage uses a numeric represen- 
tation called "bmary-coded decimal" or 
BCD, which we'll discuss more next 
month. The Bool Camp column in issue 
43 covered floating point numbers and 
computations in grim detail. 

Another problem arises when we wish 



to write a program in which the user 
enters a number that's used in subse- 
quent calculations, or when a calculat- 
ed number needs to be output to the 
screen or printer. A number like 7239 
is stored internally in only two bytes. 
With the hex value $1C47. But to print 
"7239" on the screen requires four 
characters. To further compUcate the is- 
sue, to make the character "7" appear 
we actually have to print the ASCII 
character code 55 ($37). 

(Things are even worse than they ap- 
pear. The character with ASCII code 5 
actually is stored internally in the Atari 
as character code 23. We won't worry 
about this today.) 

So, if we know that we want to print 
some numbers, we may want to choose 
another method for storing them inter- 
nally, rather than using the standard 
two-byte integer. One possibility is to 
reserve one byte for each digit in our 
nimiber. For the example of "7239," 
we would use four bytes. But what to put 
in each byte? We could, of course, sim- 
ply store "7" in the first byte, "2" in 
the second, and so on. But we still 
couldn't print the number out this way. 
If we output an ASCII code of "7" to 
the screen, we get the same graphics 
symbol as you obtain by typing a 
control-G on the Atari keyboard (a di- 
agonal slash). And you can't even print 
an ASCII code 7 on a printer. Sending 
an ASCII 7 to an Epson printer makes 
the printer's bell ring! 

Here's another option. Rather than 
storing "7" in the first byte, store the 
ASCII code for "7." Table 1 Usts the 
ASCII codes and bit patterns for the 
digits 0-9. Note that each digit has an 
ASCII code equal to the digit value plus 
$30. Hence, if we printed a byte con- 
taining $37, a 7 would indeed appear 
on the screen or printer. 

There are a few problems associated 
with storing numbers in ASCII form. 
First, this requires more RAM than does 
the binary integer form. Also, you can't 
use the normal addition and subtraction 
operations, since they are designed to 
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work with binary numbers. 

One good solution to the problem is 
to go ahead and store numbers in two- 
byte integer format, and simply convert 
them to an ASCII string before printing. 
For input, we must convert the ASCII 
string typed by the user into its binary 
numeric representation. The Atari 
operating system contains built-in rou- 
tines to convert ASCII strings into their 
floating point form and back again. Un- 
fortunately, no such routines exist to in- 
terconvert integers and ASCII strings. 
Today I'll present some macros and 
subroutines to perform all the necessary 
conversions. 

I n "C ^ i— cr <z> n — 



Today's example program lets you 
enter a number containing 1-5 digits at 
the keyboard. This number is checked 
to make sure it's valid and then is con- 
verted to a two-byte binary integer. 
Then, the value 25 is added to the in- 
teger, and the result is converted to AS- 
CII format and printed on the screen. 
Let's dive in. 

Listing 1 contains three macros 
(MAC/65 format) that should be ap- 
pended to your by-now-enormous MAC- 
RO. LIB file, using the line numbers 
shown. These macros use some bytes 
for work space, which I've defined in 
the etpiates in Lines 7380-7400. ASCII 
is the address where the ASCII string 
being converted is stored, and NUM is 
the address where the binary integer 
value for the number resides. Six bytes 
are reserved for ASCII, five for digits 
(the maximum value that works correct- 
ly is 65535) and one for an end-of-line 
character, $9B. The input routine uses 
the EOL character to know when to stop 
converting digits, and the output rou- 
tine adds an EOL so the result can be 
printed on the screen. COUNTER is just 
a one-byte work variable. 

The first macro, ASC2INT, converts 
a numeric ASCII string into a two-byte 
binary integer. Parameter 1 is the ad- 
dress of the string to be converted (for 
example, an input buffer address), and 
parameter 2 is the address where the in- 
teger should be placed after conversion. 
This macro caUs two sxdjroutiiies that do 
most of the work, VALIDASC and 
ASC2INT (you can give a macro and a 



subroutine the same name). These and 
some other subroutines are found in 
Listing 2, which should be appended to 
your SUBS. LIB file using the line num- 
bers shown. 

The second macro, INT2ASC, con- 
verts a binary integer into a printable 
ASCII string. Parameter 1 is the ad- 
dress of the integer to convert, and 
parameter 2 is the address where the 
ASCII string should be placed. As you 
might expect, this macro calls subrou- 
tine INT2ASC, which is also found in 
Listing 2. 

The ASCII string produced by the 
INT2ASC macro might not require all 
five characters reserved for it. For ex- 
ample, converting the number 43 to 
ASCII requires only two bytes for the 
character string. These digits are right- 
justified in the five-character ASCII 
string produced, so the result produced 
from INT2ASC would have the form 
00043. 

The LDGZERO macro (Lines 
8110-8360 of Listing 1) can be used to 
convert any leading (that is, on the left) 
zeros into blanks for printing purposes. 
However, this macro does not left- 
justify the result in the five-character 
field, so if you printed the output AS- 
CII string, you really would print three 
blanks in front of the 43. LDGZERO 
doesn't call any subroutines. It takes 
two parameters. The first is the addi-ess 
of the string to be processed, and the 
second is the maximum number of 
digits to examine for leading zeros. 

Now let's walk through a sample pro- 
gram and see how these conversion 
macros and subroutines do their stuff. 

>=!vscz;ii t<=> 

Please type in Listing 3, today's sam- 
ple program. Note the .INCLUDE direc- 
tives in lines 160 and 650. If your 
MACRO.LIB and SUBS. LIB files are 
not on a RAM disk, change the drive 
designation from D8: to the correct 
di'ive number. 

Almost evei-y line in this example pro- 
gram is a macro call. This makes the 
source code much shorter and easier to 
understand than if we had to expand 
each procedure into its individual in- 
structions. Also, notice my approach of 
using a macro in combination with one 
or more subroutines. The macro sets up 



the specifics of the particular operation, 
by virtue of addresses or values passed 
as parameters. I place the common de- 
tails of the procedure into a subroutine 
wherever possible, using reserved 
pieces of RAM as general work varia- 
bles. This method makes the resulting 
object code shorter and yet keeps the 
source code compact; a satisfactory 
compromise from my point of view. 

Line 380 of Listing 3 makes sure we 
are in binary mode for arithmetic oper- 
ations (more about this next month), 
and Line 390 clears the display screen. 
Line 400 prints a message prompting 
you to enter a number containing from 
one to five decimal digits. Lines 
410-420 store your response at address 
ENTRY, a block of six bytes reserved 
in Line 540. Line 430 invokes the mac- 
ro to convert this ASCII string to a two- 
byte binary integer stored at address IN- 
TEGER (defined in Line 550). If the 
carry flag is set upon completing the 
macro execution, we know an error has 
taken place, so Line 440 simply 
branches to the end of the program. 

If we've ended up with a valid num- 
ber at INTEGER, Line 450 adds 25 to 
that number. There's nothing magical 
about this; it's just a way to change the 
number you entered before I piTiit it out 
again. Line 460 then converts that sum 
mto an ASCII string at address ENTRY. 
Line 470 uses the LDGZERO macro to 
translate any leading zeros to blanks. 
You might try commenting Line 470 
out and seeing what you get. Finally, 
Lines 480-520 print the resulting AS- 
CII string on the screen and wait for you 
to press RESET. As usual, you can run 
this program from address $5000. 

Let's look at the ASCII to integer con- 
version in more detail. The first step is 
to make sure the user has entered a 
valid string of ASCII digits. Lines 
7560-7640 in the ASC2INT macro 
definition in Listing 1 handle this chore. 
The loop simply looks through all the 
characters stored at the input buffer ad- 
dress (passed as parameter 1) until it 
finds an end-of-line character. Line 
7600 stores each character in the ap- 
propriate position in the work variable 
called ASCII as the checking takes 
place. The subroutine VALIDASC is 
called to make sure the characters are 
all legitimate. 

I apologize for bouncing you around 
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the listings, but now we need to examine 
subroutine VALIDASC, starting at Line 
2980 in Listing 2. Lines 3100-3160 
pluck one character at a time out of the 
ASCII string and check for an EOL. If 
the first character foxuid is an EOL, then 
the user just pressed RETURN without 
entering anything, so Line 3160 
branches to an error routine at label IN- 
VALID (Line 3280). An error message 
is printed and the carry flag is set to in- 
dicate to the calling macro that an er- 
ror took place. 

The CHKASC routine beginning at 
Line 3190 tests whether each charac- 
ter has an ASCII value greater than $30 
(decimal 0) and smaller than $3A (":," 
the first character past decimal 9). If 
not, control again branches to the IN- 
VALID routine. If the digit is okay. 
Lines 3240-3270 strip off the four 
high-order bits (thereby changing a $37 
into a 7, for example), store the result 
back into the correct position in the AS- 
CII string, and go get the next 
character. 

This procedure underscores my con- 
tention that the largest portions of most 
good computer programs are devoted 
to input/output routines and error 
checking. If we knew our users would 
make only valid entries, our programs 
could be much shorter. Never make 
such a shaky assumption, though! 

Okay, now the string at address AS- 
CII consists only of valid digits, from 
one to five of them. The next step is to 
convert these digits into a binary num- 
ber. The ASC2INT subroutine (Lines 
3390-3700 of Listing 2) does the trick. 

Let's contemplate the philosophy of 
number representation once again. A 
decimal number like 7239 actually 
means to multiply 1000 by 7, multiply 
100 by 2, multiply 10 by 3, multiply 1 
by 9, and add all these products 
together. To transform a bunch of 
characters from the ASCII string 
"7239" into the binary equivalent, we 
must perform precisely these same 
operations. The ASC2INT subroutine 
does the work, with the help of another 
subroutine called MULTIO (Lines 
3740-4020 of Listmg 2). The MULTIO 
subroutine actually carries out the pow- 
er of ten multiplications. 

We begin with the most significant 
digit in the string to be converted. In the 
case of "7239," this digit is a 7. Load 



the 7 into a byte and multiply by 10. 
This gives 70. Add the next digit in, 
yielding 72. 

Multiply this result by 10 to get 720 
and add in the next digit, giving 723. 
Multiply this result by 10 to get 7230 
and add in the final digit, to wind up 
with 7239. Of course, this answer 
doesn't look like 7239 in its binary 
representation. In binary it will look like 
0001110001000111, and in hex- 
adecimal it will be $1C47. There's one 
final twist. The Atari stores two-byte in- 
tegers in low-byte /liigh-byte format, so 
decimal 7239 is represented in two ad- 
jacent bytes of RAM in the Atari as hex- 
adecimal 47 IC. And you thought this 
stuff was going to be simple! 

Lines 3480-3510 of Listing 2 store 
a zero in the high-byte of our destina- 
tion integer at address NUM and load 
the first (most significant) ASCII byte 
into the low-byte of NUM. If there's only 
one ASCII character, our conversion is 
complete; Lines 3520-3550 check for 
this condition. If the second character 
is indeed the EOL, Lines 3560-3570 
clear the carry flag (our signal to the 
calling macro that all is well) and return. 
Otherwise, we go on to the NEXTDIGIT 
label to continue processing. 

The first step is to multiply this left- 
most digit by 10. Subroutine MULTIO 
(Lines 3740-4020 of Listing 2) takes 
care of this for us. But how do we mul- 
tiply using the 6502 processor? We've 
learned how to add and subtract using 
the ADC and SBC instructions. 
However, the 6502 contains no intrin- 
sic multiplication or division instruc- 
tions. You may recall that performing 
an ASL or Accumulator Shift Left oper- 
ation is the same as multiplying the con- 
tents of a byte by two, and a LSR or 
Logical Shift Right operation divides the 
contents of a byte by two. Now we need 
to extend these concepts to handle a 
two-byte number and combine shift and 
add operations to perform integer 
multiplication. 

Remember that multiplication is real- 
ly just a bunch of sequential additions. 
The 6502 gives us an easy way to mul- 
tiply by 2. To multiply some number by 
10 we could multiply it by 2; multiply 
by 2 again (net result is multiply by 4); 
add the original number back to the 
result (net result is multiply by 5); and 
multiply by 2 once again, to give a net 



result of multiplying by 10. This is pre- 
cisely what happens in subroutine 
MULTIO. 

One more point and then we'll look 
at the code. Suppose our original num- 
ber is decimal 150, stored in a single 
byte as $96. If we multiply that by 2 we 
get 300 in decimal terms ($012D), but 
the maximum value that fits in a single 
byte is 255. Whatever shall we do? 
When an overflow like this takes place, 
the carry flag in the processor status 
register is set, and the original byte con- 
tains the value of 300 minus the maxi- 
mum 255, or 45 ($2D). This carry 
value must be added to the high-byte of 
our two-byte number, which also mider- 
wenl a left shift operation during the 
multiply by 2 step. Fortunately, the 
6502's instruction set contains an in- 
struction to handle all these details, the 
ROL or Rotate Left instruction. 

Each bit shifts to the next higher or- 
der position (i.e., to the left). The car- 
ry flag shifts into bit 0, and bit 7 shifts 
into the carry flag. If the carry flag is 
cleared, ROL is the same as an ASL, 
simply multiplying the byte's contents 
by 2. But if the carry is set, the ROL ef- 
fectively multiplies by 2 and adds 1 to 
the original byte contents. Hence, a two- 
byte number can be multiplied by 2 sim- 
ply by performing an ASL on the low- 
byte, followed by an ROL on the high- 
byte to account for the carry flag. I can't 
believe you didn't think of this solution 
immediately. (Wiegers' First Law of 
Computing: Almost nothing you can do 
with a computer is difficult. Wiegers' 
Second Law of Computing: Almost 
nothing you can do with a computer is 
obvious.) 

In sum (pun intended), to multiply a 
two-byte binary integer by 2, you can 
simply perform an ASL operation on the 
low-byte, followed by an ROL operation 
on the high-byte. 

As promised, you may now look at the 
MULTIO subroutine in Listing 2. Lines 
3820-3830 store the high-byte of the 
original number on the stack so we can 
grab it for the necessary addition. Line 
3840 places the original low-byte into 
the accumulator. Lines 3850-3860 
multiply the original number by 2, and 
Lines 3870-3880 do it again. Lines 
3890-3930 add in the origmal munber, 
so now we've effectively multiplied it by 
5. (Notice that all intermediate results 
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are stored back in the original location 
at NUM and NUM+1.) Lines 
3940-3950 complete the niultipUcation 
by 10. Lines 3960-4010 add in the 
next digit, as we discussed earlier. 

The loop in Lines 3580-3640 of List- 
ing 2 (subroutine ASC2INT) continue 
this monkey business until an EOL 
character is reached in the ASCII string, 
at which point the carry flag is cleared 
to indicate success and control returns 
to the calling ASC2INT macro. 

We're now back at Line 7660 of List- 
ing 1, in the middle of the ASC2INT 
macro. If the carry flag is set, there was 
a problem with the conversion, and an 
appropriate error message (which lives 
at Lines 3680-3700 of Listing 2) is 
printed. Otherwise, the binary result in 
address NUM is moved to the location 
specified in the second parameter in the 
ASC2INTcall (Lines 7670-7700), and 
we're all done. 

Whew! We finally got the simple num- 
ber you entered stored in binary form. 
Now let's see how to go the other way. 
Our sample program adds 25 to 
whatever number you enter, just to 
change it. The INT2ASC macro con- 
verts the number whose address is sup- 
plied in parameter 1 to a character 
string stored at the address specified in 
parameter 2. The INT2ASC macro is in 
Lines 7820-8070 of Listing 1. Lines 
7940-7970 just copy the number to be 
transformed to our work space at ad- 
dress NUM. 

Subroutine INT2ASC does all the 
work, creating a five-digit ASCII string 
of printable characters at address AS- 
CII. Lines 7990-8050 copy this string, 
up through the EOL character, to the 
desired destination address in 
parameter 2. Subroutine INT2ASC is in 
Lines 4060-4590 of Listing 2. As with 
ASC2INT, this procedure is based on 
the fact that the position of a digit in a 
decimal number indicates the number 
of times a particular power of 10 must 
be added to zero to obtain that number. 
Algorithmically, it's easier to work 
backwards, performing multiple sub- 
tractions. You keep subtracting a par- 
ticular power of 10 (10, 100, 1000 or 



10000) from the integer in question un- 
til you obtain a negative result. The 
number of subtractions you can do be- 
fore going negative is equal to the value 
of the digit in a specific column (tens, 
hundreds, thousands, or ten thousands). 

Here's an illustration. Begin with the 
familiar integer 7239. Let's set a coun- 
ter equal to 0. How many times can you 
subtract 10000 from 7239 before you 
get a negative result? The answer is 0. 
Hence, the first of our five output digits 
(the ten thousands column) is 0. Next, 
how many times can you subtract 1000 
from 7239 before obtaining a negative 
result? Seven, of course. Increment the 
counter for each successful subtraction. 
If your counter reaches 8 (representing 
7239 minus 8000), the subtraction 
result is negative, and you know you've 
gone a digit too far. Add 1000 back in 
to get back to a positive number 
(7239-7000 = 239), and use the coun- 
ter's value of 7 for the second digit in 
the output ASCII string. 

Continue this procedure until all pow- 
ers often from 10000 to 10 have been 
done, and the remainder (the units 
column) is the fifth and final digit in the 
ASCII number. This is awkward to 
describe in words, but it actually makes 
some sense. 

We'll have to set bits 4 and 5 (ORA 
—$30) in our counter for the number 
of successful subtractions to convert it 
to the ASCII representation. If you walk 
through the commented INT2ASC 
subroutine you should understand this 
technique better. As you can see, it's a 
pretty cumbersome way to turn a two- 
byte binary integer into a five-character 
ASCII string, but it's just about the only 
way to do it. Lines 4500-4520 of the 
subroutine add an EOL to the end of the 
string so it can be printed properly us- 
ing the PRINT macro, as done in the 
sample program of Listing 3. 

The INT2ASC conversion routine 
produces a five character ASCII string, 
plus an EOL character. If the integer 
being converted is smaller than 10000 
decimal, the first ASCII digit will be a 
zero. The number of leading zeros 
equals five minus the number of 
decimal digits in the number being con- 



verted. Often, you wish to print a num- 
ber with just significant digits shown, 
that is, without any leading zeros ap- 
pearing. The LDGZERO macro. Lines 
8110-8360 of Listing 1, replaces lead- 
ing zeros with spaces. 

LDGZERO requires two parameters, 
the address of the string to be processed 
and the number of bytes to process be- 
fore quitting. If a non-zero character 
(ASCII values $31 — $39) is encoun- 
tered, the routine terminates. The en- 
tire logic of this macro consists of loop- 
ing through the bytes in the ASCH string 
replacing characters with ASCII code 
$30 (zero) with ASCH code $20 (blank 
or space character), until an end condi- 
tion is satisfied. 

As you see when you run the program 
in Listing 3, leading blanks do "print," 
effectively shifting the significant digits 
to the right on the screen. You might 
want to write a macro or subroutine (or 
combination) to left-justify a string by 
simply removing leading zeros, rather 
than translating them uito blanks. 
That's not a hard exercise to do. While 
you're at it, why not write a routine to 
right-justify a string in a field of some 
specified length? Don't forget error 
checking. What would happen if you 
tried to right-justify a string of 11 
characters in a field only 8 characters 
long? Oops. 

I — >^cr i w~r-\ Sk.\ 

I alluded to another numeric data 
storage format, binary-coded decimal. 
Next month we'll take a close look at 
BCD and see some routines for convert- 
ing ASCII strings to BCD and 
vice-versa. 

ASCII / Character / Binary Equivalents. 
Character 

ASCII Code Binary Value 






$30 


0000 


1 


$31 


0001 


2 


$32 


0010 


3 


$33 


0011 


4 


$34 


0100 


5 


$35 


0101 


6 


$36 


0110 


7 


$37 


0111 


8 


$38 


1000 


9 


$39 


1001 



80 
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7370 


■ 


7380 flSCII = $0690 


7390 NUM = S0596 


7400 COUHTER = S0698 


7410 
7420 
7430 






7440 


fl5C2IHT Macro 


7450 




7460 


Usage: asC2INT chars, nuMber 


7470 




7480 


■chars' is address of ASCII 


7490 


string to convert, ending w/ EO 


7500 


■■nuMber' is address of integer 


7510 




7520 


■MACRO ASC2IHT 


7530 


.IF X0O2 


7540 


.ERROR "Error in ftSC2INT" 


7550 


.ELSE 


7560 


LDX tt255 


7570 ( 


^ASCLQOP 


7580 


INK 


7590 


LDA XI, X 


7600 


STA ASCII, X 


7610 


CMP »EOL 


7620 


BNE GASCLOQP 


7630 


J5R VALIDASC 


7640 


BC5 QDONE 


7650 


JSR ASC2IHT 


7660 


BCS GA5CERR0R 


7670 


LDA NUM 


7680 


STA y.2 


7690 


LDA NUM+1 


7700 


STA X2+1 


7710 


CLC 


7720 


BCC GDONE 


7730 ( 


>ASCERROR 


7740 


PRINT CONUERTMSG 


7750 


SEC 


7760 ( 


>D0NE 


7770 


.ENDIF 


7780 


.ENDM 


7790 




7800 
7810 






7820 


INT2ASC Macro 


7830 




7840 


usage: INT2ASC nuHber, chars 


7850 




7860 


'nuMber' is address of integer 


7870 


'chars' is address of resulting 


7880 


ASCII string, ending with EOL 


7890 




7900 


.MACRO INT2ASC 


7910 


.IF X0<>2 


7920 


.ERROR "Error in IHT2ASC" 


7930 


.ELSE 


7940 


LDA y.i 


7950 


STA NUM 


7960 


LDA >:i+i 


7970 


STA NUM+1 


7980 


JSR INT2ASC 


7990 


LDX tt255 


8000 ( 


'INTLOOP 


8010 


INX 


8020 


LDA ASCII, X 


8030 


STA >;2,x 


8040 


CMP ttEOL 


8050 


BNE QINTLOOP 


8060 


.ENDIF 


8070 


.ENDM 


8080 , 

8090 

8100 







8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 



2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 



LDGZERO Macro . . 

Usage: LDGZERO address, bi/tes 

■address' is beginning of ASCII 

string of digits 
■bytes' is Max nuMber of digits 

to check for leading zeros 

.MACRO LDGZERO 

.IF X0<>2 

.ERROR "Error in LDGZERO" 

.ELSE 
LDX tt255 
GSUPZERO 
INX 

LDA XI, X 
CMP «S3e 
BNE GLZDONE 
LDA tt$28 
STA >C1,X 

CPX uy.2 
BNE GSUPZERO 
GLZDONE 

.ENDIF 
.ENDM 






subroutine UALIDASC 

called by ASC2INT, ASC2BCD Macros 

Makes sure all characters in 
string beginning at address 
ASCII are valid ASCII codes for 
nuMeric digits; looks until it 
hits an EOL; error Message is 
printed and carry flag is set 
if an invalid char, is found 

UALIDASC 

LDX UB 
LDOPASC 

LDA ASCII, X 

CMP ttEOL 

BNE CHKASC 

CPX ttO 

BEQ INVALID 

CLC 

RTS 
CHKASC 

CMP tt$30 

BCC INVALID 

CMP tt$3A 

BCS INVALID 

AND tt$OF 

STA ASCII, X 

INX 

BCC LOOPASC 
INVALID 

PRINT ASCERRM5G 

SEC ;set carry to 

RTS ;show an error 

ASCERRMSG 

.BYTE "Non-nuMeric " 

.BYTE "Character found", EOL 



get a char 

EOL? 

no, go check it 

yes, 1st char? 

yes, null entry 

no, all done 

go back 

less than 0? 
yes, no good 
greater than 9? 
yes, no good 
clear 4 hi bits 
save 4 10 bits 
ready for next 
char 



KKXXXXXKKXXKXKKKKKXXKXXXKXXXXX 



subroutine ASC2INT 
called by ASC2INT Macro 

converts string of ASCII digits 
at address ASCII to a 2-byte 
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3440 

7458 

3468 

3470 

3480 

3490 

3500 

3510 

3520 

3538 

3540 

3550 

3560 

3570 

3580 

3598 

3680 

3618 

3620 

3638 

3648 

3658 

3660 

3670 

3680 

3698 

3788 

3718 

3728 

3738 

3748 

3756 

3768 

3778 

3788 

3798 

3888 

3818 

3820 

3830 

3840 

3850 

3868 

3870 

3888 

3890 

3900 

3918 

3928 

3930 

3948 

3958 

3968 

3978 

3988 

3998 

4888 

4818 

4826 

4838 

4846 

4858 

4668 

4876 

4888 

4698 

4166 

4118 

4126 

4138 

4140 

4158 

4168 

4176 

4188 

4190 

4268 

4218 

4228 

4236 

4248 

4256 

4268 

4276 

4286 

4298 

4386 

4316 



;binary integer at address HUM; 
;carry flag set if error 



;zero hi byte 
;get first char 



A5C2INT 

LDA no 

STft NUM+1 

LDA ASCIX 

5TA NUN 

LDX ttl ;next char EOL? 

LDA ASCII, X ;next char EOL? 

CMP ttEOL 

BNE NEXTDIGIT ;no, go on 

CLC ;yes all done 

RTS 
NEXTDIGIT 

J5R MULTie ;MUltipl!/ bi^ 16 

BC5 ABORT ;carry set? error 

INX 

LDA ASCII, X ;next char EOL? 

CMP «EOL 

BNE NEXTDIGIT ;no, go on 

CLC 
ABORT 

RTS ;exit 

CONUERTMSG 

.BYTE "ASCII conversion" 
.BYTE " error. . .",EOL 



KKKKKKXKKXKKKKKKKKXKKKKKKXKKKMM 



subroutine MULT16 

called by subroutine ASC2INT 

Multiplies binary integer at 
address NUH and NUM+l by 18 
and adds the next digit in 



NULTie 
LDA 
PHA 
LDA 
ASL 
ROL 
ASL 
ROL 
ADC 
STA 
PLA 
ADC 
STA 
ASL 
ROL 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
RTS 



NUM+1 

NUM 

NUM 

NUM+1 

NUN 

NUM+1 

NUM 

NUM 

NUN+1 

NUN+1 

NUM 

NUM+1 

ASCII, X 

NUM 

NUM 

»e 

NUN+i 
NUN+1 



;save high byte 

;get low byte 
; Multiply X 2 

j'tiMes 2 again 

;add to self to 
;ef fectively 
; Multiply X 5 



;tiMes 2 again, 
;total is now xl8 
;add in next char 



;adding 8 to high 
;byte Just pulls 
;in carry value 



KKKXKKKKKKKXMXKKMKKKKKKKKKKKKKX 



subroutine INT2ASC 
called by INT2ASC Macro 

converts a 2-byte binary integer 
at address NUN to a string of 
ASCII digits at address ASCII 



INT2ASC 

LDY tt8 ; 

STY COUNTER ; 
NEKTDIGIT2 

LDX tt8 ; 

SUBLOOP 

LDA NUN ; 

SEC } 

SBC DECTABLE, 

STA NUM ; 

LDA NUN+1 ; 

INY 

SBC DECTABLE^ 

BCC ADDITBACK 

STA NUM+1 

INX 

DEY 

CLC 

BCC SUBLOOP 



pointer to table 
of powers of 10 

digit counter 

get low byte 
subtract 10 byte 

Y ;of current 
power of 10 
now subtract hi 
byte of current 

Y J power of 10 
;if neg, restore 

save hi byte 
digit counter 
point to lo-byte 
of current power 
of 10 again 



4320 ADDITBACK 

4330 DEY ;point to lo byte 

4348 LDA NUM ;add lo byte of 

4358 ADC DECTABLE, Y ;power Of 16 

4366 STA NUM ;back in 

4376 TXA ;convert digit 

4386 ORA tt$3e jcounter to ASCII 

4398 LDX COUNTER ; and Store at 

4488 STA ASCII, X ;next position 

4418 INC COUNTER 

4428 INY ;point to next 

4430 INY ; power of 18 

4446 CPY tt8 ;at end of table? 

4458 BCC NEXTDIGIT2 ;no, go on 

4466 LDA NUN ; get units coluMn 

4478 ORA »$30 ; convert to ASCII 

4488 LDX COUNTER ;store it 

4498 STA ASCII, X 

4568 INX 

4510 LDA »E0L ;add an EOL in 

4528 STA ASCII, X ; next position 

4536 RTS ;all done 

4546 ; 

4558 DECTABLE 

4568 .MORD 18088 

4578 .MORD 1688 

4588 .HORD 108 

4590 .WORD 10 
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0100 

one 

0120 
0130 
0148 
0158 
0168 
0170 
0188 
8198 
8266 
6216 
8228 
8236 
8246 
6256 
6266 
8276 
8288 
6296 
8366 
8316 
8328 
8336 
6346 
6358 
6366 
8376 
6388 
8398 
8486 
6418 
8428 
6436 
6446 
6458 
8468 
8478 
8486 
6498 
6500 
6518 
8528 
6538 
6546 
8558 
8566 
8578 
8586 
6596 
6666 
6618 
6628 
0630 
8648 
8658 
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ExaMple 1. Interconverting ASCli 
strings and 2-byte integers 

by Karl E. Niegers 

.OPT NO LIST, OBJ 
.INCLUDE »D8:NACR0.LIB 



PROGRAN STARTS HERE 

You'll be proMpted to enter a 
nuHber with 1-5 digits. This 
is stored at address ENTRY. 
The binary integer produced 
is stored at address INTEGER. 
If the nuMber is too large. 
Missing Cnull entry] or has non- 
digits in it, you'll get an 
error Message. 25 will be added 
to the value you entered, and 
the result will be converted to 
ASCII and printed on the screen 



»= $5008 

CLD 
JSR CLS 

PRINT PRONPT 

POSITION 5,5 

INPUT 0, ENTRY 

ASC2INT ENTRY, INTEGER 
BCS END 

ADD INTEGER, 25 

INT2ASC INTEGER, ENTRY 

LDGZERO ENTRY, 5 

POSITION 2,8 

PRINT AFTER 

POSITION 5,10 

PRINT ENTRY 
END JNP END 

ENTRY .DS 6 
INTEGER .DS 2 

PROMPT 

.BYTE "Enter a nuMber " 
.BYTE "With 1-5 digits:", EOL 

AFTER 

.BYTE "After adding 25:", EOL 



■ INCLUDE ttDB: SUBS. LIB 



82 
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■ n the precedina in- 
stallment of this 
column, we took a look at 
the electronic mail fea- 
ture offered by ANA- 
LOC's Atari SIG on Del- 
phi. This time, we'll focus 
on another mode of com- 
munications for ATARI 
SIG members: the Forum, 
the Atari user's informa- 
tion central. 



I've mentioned the Forum before, but 
I know that a number of you aren't us- 
ing it, either because you don't know 
what it is, or because you find it confus- 
ing. If you haven't used the Forum, 
you're missing a lot, believe me! Current 
hot topics include GEM and MS-DOS 
compatibUity, books and bombs, track- 
balls and memory upgrades, along with 
conversations on many other fascinating 
topics — technical and nontechnical. And 
if you're looking for an answer to a tech- 
nical problem, the Atari SIG Forum is the 
place to go; post a question or comment 
on virtually any Atari topic, and you'll 
usually have several answers within two 
or three days. The Atari SIG Forum is a 
living database of information on Atari — 
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take advantage of it! 

For those of you who are new to using 
the Forum, what follows is a Forum mini- 
manual. (You regular Forum users wdll 
find this interesting, too; the Forum 
boasts at least one recently added feature 
of which you may not be aware.) 



Simply put, the Forum is a public- 
message system, similar to pubUc bidle- 
tin boards you may have used on your lo- 
cal BBSs, but far more powerful. One 
way to visualize the Forum is to imagine 
a series of rooms with chalkboards. Each 
room is assigned a different topic (Gener- 



al Interest, Toolbox for the ST, etc. — the 
same basic topics as are assigned the 
Atari SIG's databases). Within each room 
there are any number of chalkboards, 
each with its own subject; on the boards 
are written messages on that subject, and 
their repUes. The topics, subjects, and 
messages within the Forum fit this anal- 
ogy well. The net effect is a series of on- 
going, open conversations, any of which 
you may read and/or participate in. 

For your convenience, messages and 
their replies are organized into groups 
caUed "threads." A thread begins with 
an original message, and continues 
through each response to that message 
(including responses to the responses). 
As you'll learn, you can make the system 
display all the messages in a thread in a 
specified sequence, if you wish. 



To get to the Forum, type FORUM at 
the main SIG menu's ANALOG > 
prompt. You'll see the Forum banner 
and prompt: 

The Voice of the Atari User 
Welcome to the ATARI Forum. 

Forum contains messages 17000 
through 35651. 

Highest message you've read is 
35646. 

FORUM > Reply, Add, Read, 
"?" or Exit> 

The commands you'll use most fre- 
quently are listed with the prompt, and 
are pretty much self-explanatory. 

c «— » i-r-» r-r-i ^mcd^ 

To see all available options at the 
Forum prompt, type ?. The full Forum 
menu will be displayed: 
FORUM Menu: 

ADD New Message (Thread) 

FORWARD 

Message by Mail 

REPLY 

To Current Message 

DELETE 

Message 

READ 

Message(s) 

EDIT 

a Posted Message 
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FOLLOW 

Thread 

NEXT 

Message 

BACK 

to Previous Message 

TOPICS 

(Set/Show) 

DIRECTORY 

of Messages 

HIGH 

Message (Set/Show) 

MAIL 

HELP 

TAG 

Interesting Message 

EXIT 

FILE 

Message into Workspace 

FORUM > Reply, Add, Read, 

"?" or Exit> 

(If you are using a 40-colunin display, 
these commands will be displayed in that 
format, and will take more than one 
screen to display). 

The commands are self-explanatory, 
(but I'U explain the more important of 
them in the following paragraphs). For 
help with any conunand, type HELP fol- 
lowed by the name of the conunand (Ex- 
ample: HELP DIRECTORY). 

I ■> i r~^ <=. tno t— >^ 

The Forum has an extremely sophisti- 
cated directory system that allows you to 
quickly locate messages by date, subject, 
addressee or message number. You can 
also locate messages posted by a certain 
Delphi member. These criteria can be 
used individually, or combined in any 
fashion you wish, in the form of qualifi- 
ers used with the DIRECTORY (DIR) 
command. 

Here's an example of how this works. 
If you were interested only in reading Fo- 
rum messages on the subject of Omnires, 
you would enter the Forum and type DIR 
SUBJ Omnires. The system would display 
a list of all messages on that subject. If 

you wanted to get more precise, you 
could type DIR SUBJ Omnires FROM 
GBA to see a directory of all messages 
from membemame GBA on the subject 
of Onmires monitors. 
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You can use the same criteria and 
qualifiers used with the Forum's DIREC- 
TORY command (as detailed in the para- 
graphs immediately preceding) to read 
messages. You can also read messages by 
typing the number of a message (handy 
after you've used DIR), or simply press 
< RETURN > to read the next unread 
(new to you) message. 

If Forum messages addressed to you 
are waiting, you are notified automatical- 
ly when you enter the Atari SIG. You are 
notified again of waiting messages when 
you enter the Forum area. Delphi auto- 
matically keeps track of whether you've 
read waiting messages, and displays them 
first if you press RETURN when you first 
enter Forum. If you read other messages 
before reading those addressed to you, 
you can display all the messages waiting 
for you by typing READ WAITING. 

You can read only the messages in a 
thread if you wish — in forward or back- 
ward order — using special commands. 



Type your message and press 
CONTROL-Z to post it when you're 
finished. 



:acd/ 
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ADD opens up a new message. When 
you type ADD, you are prompted for an 
addressee for the message (type ALL if 
the message is to everyone), a topic for 
the message (one of the existing topics), 
and the message's subject (whatever you 
want it to be). After you enter this head- 
er information, simply type in your mes- 
sage, and press CONTROL-Z when 
finished; the message wiU be automati- 
cally posted. If it is addressed to a specif- 
ic individual, he will be notified when he 
enters the SIG that a Forum message is 
waiting for him. (If your message receives 
repUes, they will be grouped together as 
a thread.) 
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If you wish to reply to a message, type 
REPLY at the Forum prompt after read- 
ing the message. You will be prompted 
to enter the addressee of the message; 
press < RETURN > and the message will 
be addressed to the person to whom you 
are replying, and the Topic and Subject 
headers will be fiUed in automatically. 



( ~r<cz> F=» I cz; s ) 

If you're overwhelmed by the number 
of messages in the Forum, and know you 
won't be interested in all the threads, you 
can, of course, use DIR and READ quali- 
fiers to select specific messages. You can 
also limit the number of messages you'll 
see by selecting or de-selecting topics. 
For example, if you use an Atari 8-bit 
machine, you might not want to see mes- 
sages concerning the ST; you can 
eliminate those messages from being dis- 
played to you using the Forum's SET 
TOPICS command. Simply type 
TOPICS, and follow the prompts to select 
or de-select the appropriate topics. (The 
topics available in the ATARI SIG are 
General Interests, Games & Entertain- 
ment, Telecommunications, Utilities, 
Toolbox for the ST, Sight & Sound, Edu- 
cation, Entertainment on the ST, Reviews 
& News, ST Programs, Koala Pictures, 
Art on the ST, Current Issue, Home Use 
and Applications for the ST.) 

<^ — >-tl-i^r- F <=» I— «_i nn 
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Additional commands allow you to re- 
ply to a member who posted a particu- 
lar message by private E-mail (type 
REPLY MAIL), to send copies of mes- 
sages to other Delphi members by E-mail 
(type FORWARD) and to copy Forum 
messages to files in your personal Work- 
space (type FILE). You would type these 
commands immediately after reading the 
message. 

<^ — ■ <=» n -f ^ I— ^ n c ^ ^ 

Don't forget that SIG Atari hosts a real- 
time conference each Tuesday at 10 p.m. 
EST. You'll find the conferences an ex- 
cellent venue for sharing information 
about Atari computers, getting answers 
to questions and participating in friend- 
ly discussions of aU types. 

In addition to writing science-fiction nov- 
els and books on rocketry, Michael A. 
Banks is the author of Delphi: The Official 
Guide and The Modem Book, both from 
Brady Books. You can write to him via E- 
mail on Delphi to membemame KZIN.H 
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thought we'd do something 
a Uttle different this month. 
Since this time of year is generally 
slow as far as new software is con- 
cerned, and because a lot of you 
might be relatively new to the Atari 
scene, I'll take the next couple of 
minutes reviewing the ciu*rent state 
of entertainment software as a 
whole, one genre at a time, rather 
than one game at a time. And we'll 
start, fittingly enough, where Mari 
began with arcade games. 
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Uxifortunately, once I began to under- 
take this monumental task, I discovered 
that not only were there dozens of games 
out there fitting any given classification, 
there were also dozens of games, good 
games, that defied classification. Games 
that struggled to bridge the gap between 
two or three genres. And these games 
tended to be the best of all, which ex- 
plains why you've been hearing so much 
about them over the years. 

The Atari 800 was introduced in the 
early 'SOs. My first machine, which at 
48K was illiterate when compared to my 
ST, cost me $700. The old 810 drive set 
me back another $500. And one of the 
first games I crammed into that drive was 
Night Mission Pinball, from Sublogic. 
But what is truly amazing is the fact that 
in the five-plus years since I bought this 
game (an eon in the high-tech computer 
biz) Night Mission still survives as one of 
the best arcade games available. This pin- 
ball simulation is fast and furious, and 
while it lacks the screen-editing features 
offered by some of its competitors, I've 
found that I only rarely use the "con- 
struction set" portions of any program. 
What Night Mission does allow is modifi- 
cation of such play parameters as field 
incline, elasticity, and baU speed. Up to 
four can compete head to head, with the 
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high score saved to disk, providing a con- 
tinual impetus to pump in just one more 
quarter. This game is so real that you 
can, and wiU, tilt in your attempts to 
nudge a few more out of your last ball. 

Another game that's been around since 
day one (or thereabouts) is Boulder 
Dash. This Pac Man/Donkey Kong style 
game features fast action and graphics 
that push the 8-bits to their limit. While 
the latest incarnation features a 
construction-set feature, steer toward Su- 
per Boulder Dash for the finest set of 
challenging screens available in or out- 
side the arcade. The object is to dig 
through the earth in search of diamonds, 
while avoiding a number of dangers, 
most notably falling rocks. Each maze is 
a puzzle requiring thought, strategy and, 
of course, great reflexes to survive. Mul- 
tiple levels of play keep this thriller in- 
teresting for months to come. A very 
similar game. Bounty Bob Strikes Back, 
is, despite its average graphics, deserv- 
ing of an honorable mention. Like Boul- 
der Dash, it has a seemingly infinite 
number of screens to navigate, all 
crammec into a single high-speed 
cartridge. 

If your tastes run more toward outer 
space encounters. Star Raiders II should 
satisfy your lust for violence In this game 
the evil Zylon empire has invaded your 
star system, establishing bases which 
pump out wave after wave of deadly fight- 
er ships. Your mission, should you 



choose to accept it, is to stamp out this 
menace. You do this by traveling 
throughout the system, destroying fight- 
ers, protecting your refueling bases, and 
searching out and eradicating Zylon 
strongholds. Detailed graphics and fast 
action are the hallmarks of great arcade 
games, and Star Raiders 11 does not dis- 
appoint. Your cockpit contains all the di- 
als and readouts you'll need to keep 
abreast of game developments, and its 
level of sopliistication approaches that of 
a simulation, making for a realistic and 
entertaining campaign. Jusl don't forget 
youi" space suit. 

While it's not always true that two can 
have as much or more fun than one, 
there are a number of programs out 
there that excel at placing good friends 
at one another's throats. Indeed, the 
most enjoyable of the two-player games 
are those that require opposition rather 
than cooperation — competition seems to 
be an inbred quaUty of mankind. I've 
found the best two-player games to con- 
sistently be the Spy vs. Spy series. In- 
spired by the popular characters in MAD 
Magazine, the three games which com- 
prise this trilogy place the two familiar 
agents in differing locales with one com- 
mon goal, to be the first to collect and 
assemble a device, usually a bomb. Ris- 
ing above a mere search, the game al- 
lows the players to slow each other's 
progress by setting deadly booby traps 
and engaging in hand-to-hand combat. 



The graphics are distinct and imagina- 
tive, with your spy laughing diabolically 
as your opponent is incinerated by an ex- 
pertly placed napalm bomb. And the 
split-screen layout, allowing simultaneous 
play when combined with the complex, 
yet easy to learn set of joystick controls, 
makes the game effortless to play. 

If you prefer a battle of wits, Archon 
is an Electronic Arts original that com- 
bines the strategy of chess with the dex- 
terity of an arcade wrist-buster. It was 
four years ago that I first played this 
game, and it still survives as one of the 
best. Played on a checkered board, each 
man has a different attack mode or pow- 
er, with some pieces being stronger than 
others. Numerous battle modes are used, 
from clubs to projectiles to magic. Your 
men are more powerful on their own 
color squares — but don't get lazy, as even 
the board colors are subject to change. 
As you fight, on-screen life lines keep you 
apprised of your progress (or demise). 
Archon and its sequel (Archon II) are 
classics which, like chess, survive the test 
of time. 

If a traditional one-on-one confronta- 
tion is more to your liking, then a cou- 
ple of packages may satisfy you. World 
Championship Karate from Epyx outfits 
you in traditional oriental garb and pits 
two Kung Fu warriors against each other 
in a fight to the death. Complex joystick 
commands unleash a battery of offensive 
and defensive moves, from simple kicks 
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This game is SO real that you can, 
and will, tilt in your attempts 
to m6i^ a few more out 
of /our last tall. 



and punches to elaborate leaps and spins. 
Intricate and sophisticated graphics keep 
this game interesting, and I still love the 
way your computer opponent turns and 
looks at you mockingly when you are 
slow to attack. For those that need some- 
thing to fight for, Datasoft's Karateka pits 
you against a succession of Karate ex- 
perts of increasing strength as you at- 
tempt to rescue a princess held hostage 
in a mountain fortress. 

If traditional sparring is more your 
game. Accolade's Fight Night straps on 
the gloves and lets you go ten rounds 
against some of the toughest pugilists 
you'll ever set your sore eyes on. Loose- 
ly patterned after the arcade version, in 
this game you square off against six box- 
ers, from the lightweight "Dipstick" to 
the super-heavyweight "Bronx Bomber." 
One or two compete, and a construction 
set allows you to design and build yoxu* 
own opponents. While the difficult com- 
mand structure and slow execution 
makes Fight Night inferior to either of 
the Karate games, it is still entertaining. 
Another game that is great for two play- 
ers is Trailblazer. This sleeper is so 
different from anything else on the mar- 
ket that it was destined to be a winner 
even if it didn't have superb, fast graph- 
ics. In this variation of the race game, 
Mindscape's masterpiece puts each play- 
er in control of a checkered ball, with the 
object being to complete a racetrack sus- 
pended in space in the least amount of 



time. This simple concept is supplement- 
ed by a number of special areas on the 
track which speed you up, slow you 
down, and bounce you over bottomless 
pits. The spUt-screen design is ingenious, 
allowing each competitor complete con- 
trol over his ball and providing first- 
person perspective of the action. You can 
almost feel yoiu* opponent's ball shoot- 
ing over your head as he passes you. 

A number of packages let you take to 
the air. Probably the most reahstic, and 
most difficult, is FUght Sunulator from 
Sublogic. This complex program mimics 
perfectly the flight characteristics of a 
single-engine aircraft, the Cessna 182. 
So perfectly, m fact, that without flight 
training you're likely to spend the 
majority of yoiu* time power diving into 
the Earth — assuming you can take off. 
And despite the complexity, the program 
executes remarkably fast. Once you've 
earned your wings, embelUshments in- 
clude a World War I dogfight battle 
game, and a number of optical scenery 
disks covering the entire United States, 
as well as a number of foreign countries. 
This is tndy a premium program. 

If you'd rather forego some of this 
reaUsm and simply dogfight, a couple of 
packages will appease you. Ace of Aces 
from Accolade puts you over Europe 
during WWII (the big one), where you 
attempt missions requiring you to fight 
air to air, air to ground and air to sea, 
with the Nazis as formidable opponents. 



Mindscape's Infiltrator sticks you behind 
the stick of an ultra-sophisticated 
heUcopter, a la Blue Thunder. Both of 
these programs are complex simulations 
which push your machine to its Umits. 
And while I thought their attempts to 
simulate every aspect of their respective 
missions made the games a little long- 
winded, the main portions of each are 
engagmg. 

Of course, I could go on and on about 
the rest of the arcade games out there. 
There are tons of cartridge-based games, 
many based on arcade blockbusters, 
others based on movies and cartoon 
characters. I leave it up to you to peruse 
though these. 

Now, having looked at the entire spec- 
trum of the arcade genre, let's step back 
a moment and look at one of the latest 
entrants into this fraternity. 

Saracen 

by Datasoft Electronics Arts 

1820 Gateway Drive 

San Mateo, CA 94404 

48K Disk $19.95 

Saracen, the latest arcade game from 
Datasoflt, is billed as an action adventure 
in the Middle Ages. When I first saw the 
game, opened it and read the sUght 
manual, I started to become concerned. 
Here I sat, discussing some of the best 
arcade games I'd ever played, and then 
I opened this. To say that I was prepared 
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for the worst would be a gross under- 
statement. But my tense trepidation 
turned to relief when I discovered that 
Saracen was nowhere near as bad as I 
thought it would be. Actually, it was pretty 
good. 

Of course, not original by any stretch 
of the imagination. When the first of the 
100 levels appears on the screen, Boul- 
der Dash (see previous page) immediate- 
ly comes to mind. Each level is basically 
a maze, through which you navigate in 
search of the Saracen Chief hidden with- 
in. A storyline as thin as the paper it's 
printed on casts you in the role of Dan 
the Crusader, who, like any other red- 
blooded young Christian adventurer, is 
on a sacred mission to search out and ex- 
pel the Infidel Saracens from the Holy 
Land. Play opens with the gallant war- 
rior trapped within a Saracen fortress, 
longbow in hand, ready for action. 

Actually, it's not quite as heroic as this 
may sound. The screen is a maze, a 
rather complex and confusing maze, 
filled with a number of items to keep play 
interesting. There are arrows which you 
can pick up and shoot at the soldiers who 
dog your every move; one-way doors, 
bombs and cannonballs which slow your 
progress; and, of course, the Saracen 
Chief, who stands between you and the 
next level, and thus must be destroyed. 
Grab the grenade, place it next to the 
chief, and shoot it with an arrow, blow- 



ing him away. Then move on to the next 
level and do it again. The graphics are 
good enough, the speed fast enough that 
you'll want to attempt each of the 100 
levels. 

This simple formula is complicated by 
few options. You can choose to get in- 
volved via your joystick or the keyboard, 
and a pause key aUows the obsessed a 
chance to eat. For the impatient, and 
perhaps inept challengers, you are per- 
mitted to play any of the levels 
independently — so you are guaranteed a 
visit to each dungeon of doom. And 
you'll probably want to drop in for at 
least a minute on each and every one. 

The Eternal Dagger 

by Paul Murray and Victor Penman 

SSI 

1046 N. Rengstorff Avenue 

Mountain View, CA 94043 

8K Disk $39.95 

Alternate Reality: The Dungeon 

by Ken Jordan and Dan Pinal 

Datasoft 

19808 Nordhoff Place 

Chatsworth, CA 91311 

48K Disk $39.95 

After months of nothing, we fantasy 
lovers get not one, but two new universes. 
Well, not entirely new, but at least new 
passes to a pair of worlds that many of 



us have grown (or groan, depending on 
whether you were able to finish either of 
these) to love. Each is a sequel to a previ- 
ously issued game, and each plays pretty 
much like its respective predecessor. And 
while there's nothing spectacular to dis- 
tinguish either of these, they are 
nonetheless fine additions to the pool of 
adventure games on the market. We'll 
start with The Eternal Dagger. 

The cover art of the second Wizard's 
Crown adventure depicts brave warriors 
stepping through a transport portal to 
battle against an evil wizard who awaits 
them, energy pouring forth from his 
hands. And while it is unlikely you wiU 
actually imagine yourself in this position 
while playing the game, if you take the 
time to boot up, you'll Ukely find your- 
self not disappointed. 

First you form a group of up to eight 
brave souls of varying skills and 
strengths. If you've played Wizard's 
Crown, you can at this point transfer in 
your favorite characters. If not, you can 
use the eight stock characters, or create 
your own. Each has familiar D&D attrib- 
utes, and each can have weapons, shields 
and armor. Depending on his particular 
profession, characters also have special 
powers, such as magic, healing and thiev- 
ing skills. 

Once you begin play, the screen fills 
with a map perspective, on which your 
party moves, searches, battles and dies. 
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Actually, it's not quite Bslieroihs 
this ms^ sound 



The sopliisticated program supports a 
mind-boggling level of detail and allows 
both quick and tactical battle modes. The 
former displays only the outcome of a 
given engagement, while the latter allows 
full control of the altercation, from 
character position to prayer (when things 
get really desperate). Graphics are of the 
standard SSI format, the many command 
menus and prompts easily readable. 

Probably the very worst thing about 
this game is the agony the setup routines 
inflict upon the helpless owner. First, for- 
mat four diskettes (assuming you can find 
four blank diskettes). These are then in- 
serted into your drive in a 20-minute or- 
deal requiring you to precisely follow the 
prompts to avoid starting this hell all over 
again. I hope you've got the time and pa- 
tience to sit still to do it. 

Those who have played the first install- 
ment of Alternate Reality will no doubt 
immediately recognize the famiUar por- 
tal adorning the cover of the packaging 
of Alternate ReaUty: The Dungeon. In 
fact, some might even find it hard to dis- 
cern this game from the original. And, 
like Eternal Dagger, this similarity con- 
tinues throughout play. 

In Alternate Reality, the scenario is not 
much different. You have been captured 
from your dreary life by an aUen ship, 
which blasts off to yom- Alternate Reali- 
ty, where you are an adventurer trapped 
in a strange, primitive world. This time. 



though, you find yourself in a dungeon 
rather than a city. After jumping through 
the transit window, a portal above which 
spins numbered dials representing the 
values of your various attributes — the 
values freeze at entry to determine your 
skills. Or you can choose to import a 
character from Alternate ReaUty: The 
City. Either way, from then on it's a first- 
person perspective as you move through 
the dungeon. 

A small window in the center of the 
screen is your eyes. At the top and bot- 
tom of the screen are readouts provid- 
ing game status, displaying prompts and 
action menus. Each encounter requires 
some sort of reaction, such as fight, flee 
or greet. But while you'll never know ex- 
actly what hides behind any of the many 
doors you'll encounter in your explora- 
tion, you can be sure that it will take a 
lengthy disk swap and access to gain en- 
try. Such is a drawback of 48K. It will 
take you some time to get through each 
of the three disks which contain the 
game, and be warned that aggression is 
not always the best course of action. The 
ultimate goal is, as you might expect, to 
return to Earth and/or obtain revenge 
against your captors. 

Even though each game has its own set 
of superb docmnentation, I have to award 
this battle to the The Dungeon. Mind 
you, this is an aesthetic caU, not one 
based on information content. This is be- 



cause each manual was filled with every- 
thing you might want (or have) to know 
about the game. Each had full descrip- 
tions of creatures and locations, as well 
as tons of hints and strategies. And actu- 
ally. Dagger's was a Uttle more colorul. 
I think it's the map that gave it to 
Dungeon. 

Overall, I think Alternate Reality: The 
Dungeon w^s a little better. What prob- 
ably tipped the sijuies was the graphic 
orientation uf Reality — I prefer the first- 
person perspective over a map-oriented 
game. The Eternal Dagger was much 
more complex, and hence more difficult 
to play, but in the end simpler to com- 
plete. This is because Alternate Reality 
is brutal and unforgiving. One mistake, 
one underestimation of his motives, and 
you're dead. The hardest lesson you'll 
learn is the loss of two hours of progress 
because you were too lazy (or too weary) 
to save yoiu* position. But if you avoid this 
disaster, both games wiU provide hours 
of great adverturing. 

When next we meet, I'll move on to 
simulations, including the latest civil war 
epic from Strategic Simulations. And stay 
tuned for a nmdown of fantasy games as 
well. All things considered, it's going to 
be a great year for Atari gamers, so don't 
get left out. For now, I'm going back to 
Saracen. You see, there's that cannonball 
haunting me on Level 56. Or was it 65? 
I'll take a look and let you know. Fl 
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The Newsroom 

Springboard Software, Inc. 

7808 Creedridge Circle 

Minneapolis, Minnesota 55435 

48K 

Disk $49.94 

Reviewed by Clayton Walnum 



The Newsroom is, I believe, Spring- 
board Software's first entry into tine Atari 
8-bit software market (at least, there's 
nothing else listed for the 8-bits in their 
catalog, and I don't recall seeing anything 
in the past), and if this product is typical 
of the rest of their software, I have only one 
request for all of you: Support this com- 
pany! This program is a top-notch effort, 
from the software right through to the 
manual, and it would be terrific to see 
more Atari-compatible products from 
these people. 

What is The Newsroom? Basically, it's 
a stripped-down desktop publishing sys- 
tem that allows you to create newsletters, 
brochures, forms and other simple publi- 
cations. It doesn't have anywhere near the 
power of such desktop publishing pro- 
grams as Publishing Partner for the ST, 
but that's not to its detriment. In fact, its 
simplicity is actually a good part of its 
charm. This program is almost as easy to 
use as Broderbund's famous Print Shop. 
You'll find yourself printing out your first 
newsletter after only a couple of hours with 
The Newsroom (and most of that time will 
be spent designing the newsletter rather 
than anxiously scrambling through the 
manual). 

During the creation of your publication 
you'll visit each of The Newsroom's five 
"departments": Banner, Photo Lab, Copy 
Desk, Layout and Press. Access to these 
departments is attained through the use 
of a graphic menu where you 
use either the joystick or the keyboard to 
choose which department to visit. (All sec- 
tions of the program can be driven from 
both the joystick or the keyboard.) In this 



way dividing the different functions neces- 
sary to create your publication makes the 
entire process about as transparent to the 
user as possible. 

One reason The Newsroom is so easy 
to use is that the structure of each page 
is required to fit into one of two categories: 
one made up of a "banner" and six 
"panels," or one made up of just eight 
panels. (On 14-inch paper you can get an 
extra two panels into each of the layouts.) 
A banner is your newsletter's masthead 
or header, and the panels are the parti- 
tions into which each page is separated. 
If you took a sheet of paper, drew a line 
lengthwise down the middle, then drew 
three horizontal lines to divide the paper 
into six equal-sized rectangles, you'd see 
the way The Newsroom lays out its panels. 

The first step in putting together your 
publication is a visit to the Banner depart- 
ment. The banner can be created using 
clip art (over 600 individual graphics are 
included with the package; also extra clip 
art packages may be purchased, allow- 
ing The Newsroom user to add 2,000 
more graphics to his library), text (with a 
choice of several fonts and sizes) and a 
"Graphics Tool" section that allows you 
to do everything from drawing simple lines 
to laying down circles and squares and fill- 
ing shapes with one of the ten available 
fill patterns. Though the banner is restrict- 
ed to a preset size, you have all the tools 
necessary to create just about any graph- 
ics you want. 

Once the banner is complete, you'll 
want to start putting together each of your 
panels. A panel is usually made up of a 
"photo" and some text, so you'll proba- 
bly want to visit both the Photo Lab (if you 
want a graphic) and the Copy Desk for 
each of the panels of your page. 

The Photo Lab allows you to put 
together a photo (the name The News- 
room uses for a rectangle containing a 
graphic and some text, the text usually 
used as a caption). A photo is actually very 
similar to a banner— only the size and 
shape are different. As a matter of fact, the 
Photo Lab offers the same functions— clip 
art, graphics' tools and text— as the ban- 



ner department, and the process for creat- 
ing a photo is virtually identical, the only 
real difference being the addition of a 
"camera" function that allows you to de- 
fine the area of the screen that will become 
your photo. Photos can be any size equal 
to or smaller than the size of a panel. 

When your photo is complete, it's time 
to move to the Copy Desk, where you will 
place the photo in the panel and enter the 
panel's text. The text editor supplied is ac- 
tually a simple word processor that even 
allows some block functions, such as 
deleting or moving blocks of text. You may 
enter your text in two different character 
sizes and choose from three different 
fonts. The fonts included are the same as 
used in the Banner department: serif, sans 
serif and old English. Using the large 
character size lets you enter headlines, 
while the smaller text sizes are used for the 
body of the text. 

As you enter your text, it automatically 
"flows" around the photo, relieving you 
of the agonizing chore of formatting the 
text to fit the remaining space. Amazingly 
enough, you can actually move the pho- 
to after the text has been entered, and the 
text will refit itself around the photo's new 
position. 

To finish your newsletter, you'll need to 
create at least six panels as described 
above (eight if you've not used a banner) 
and get them all saved to disk. Then you 
need to pop into the Layout department 
to tell The Newsroom in what positions you 
want the panels placed. 

Finally, it's off to the Press to print out 
your creation. The only thing you really 
need to do here is make sure the program 
is set for your printer. Since over 50 
printers are supported, the chances are 
good that something on this list will work 
for you. 

One word of warning: The Newsroom 
doesn't seem to be compatible with the 
Atari 850 interface, although from talking 
to Springboard Software's representa- 
tives, I get the impression that they're plan- 
ning to correct this oversight. So make 
sure that The Newsroom is compatible 
with your printer and interface before you 
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buy. This is doubly important, since no- 
where on the box or in the documentation 
does it tell you what printers are actually 
supported. 

And speaking of the documentation, I 
have to say that The Newsroom's manu- 
al is one of the best I've ever read. It's laid 
out in a logical and readable manner and 
is well written. It includes not only a com- 
plete instruction and reference section, but 
a full tutorial that'll lead you through the 



designing of a newsletter: from the crea- 
tion of the banner to the actual printing. 
It's a rare treat indeed to come across a 
truly professional piece of documentation 
these days. 

Though $49.95 is a fairly high price for 
a piece of 8-bit software, I think that those 
who take the plunge will be gratified by 
their purchase. The Newsroom is a real 
class act and will be a welcome addition 
to most anyone's software library. Though 



it's not appropriate for serious desktop 
publishing, it's a program that the entire 
family will enjoy and come back to again 
and again. I sincerely hope that we'll be 
seeing more of Springboard Software in 
the future. 

The author would like to thank 20th 
Century Video in South Windsor, Connec- 
ticut, for supplying some of the hardware 
needed to evaluate this product. 
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221 B. Baker St. 

by Sculptured Software, Inc. 

Datasoft 

19808 Nordhoff Place 

Chatsworth, CA 9131 1 

Low resolution $39.95 

Reviewed by Steve Panak 

One of the favorite forms of entertainment 
is the mystery. Whether it be an Agatha 
Christie whodunit or a riotous Pink Panther 
comedy, the written word or the silver 
screen, people just can't seem to get enough 
of it. Unfortunately for mystery and computer 
lovers, software has, for the most part, failed 
to enrich their lives with death and despair. 
Until now. 

221 B. Baker Street pits software sleuths 
against one another and themselves in a 
race to solve a murder using the least num- 
ber of clues. After booting up the autoload- 
ing disk, up to four players first choose a 
game persona. You could be Holmes or 
Watson, Irene Adier or Inspector Lestrade. 
You then decide whether the program will 
refer to you by your own name or that of your 
character, and whether you wish clues to be 
given in code. If you choose coded clues, 
the hints are scrambled so the other play- 
ers can't use them, and won't have to avert 
their eyes from the screen as your clues are 
displayed. This feature can also be used to 
add another dimension to the game, that of 
cryptography— trying to decipher the other 
players' clues to gain an advantage. The op- 
tion to change your code midstream makes 
decryption all the more difficult. After setting 
all the preliminary options, you select one of 
the 30 cases and start pounding the streets 
for clues. 

The highly detailed screen, depicting 



streets and buildings, scrolls smoothly, dis- 
playing only a portion of the city at any one 
time. As each player begins his turn, the im- 
age of his character fills the bottom of the 
screen, along with an inventory of the items 
he possesses. Pressing the space bar to roll 
the die, you move your man up to the maxi- 
mum allowed spaces. One complaint I had 
here was the fact that, while you can retrace 
your steps if you make a wrong turn, you 
cannot do so if you've moved your total al- 
lotment of spaces. This was occasionally an- 
noying and could have been easily 
remedied. 

After a couple of rolls, you'll reach one of 
the many buildings in the town, where you'll 
receive a clue. This pattern is repeated until 
you amass what you consider to be enough 
clues, whereupon you hightail it back to Bak- 
er Street to give the solution to the crime. You 
solve the crime by answering a series of 
multiple-choice questions, and then you 
receive an explanation of the motive behind 
the murder. The first to solve the crime wins, 
and a ranking is assigned depending on the 
number of clues it took to reach the solution. 

To spice up play, the board is covered 
with a number of special items and buildings. 
Secret tunnels and a carriage service speed 
you about town. You must get to Scotland 
Yard and receive a badge before you are 
allowed to offer your solution. These badges 
can also be used to lock a location, thwart- 
ing the access of other players to valuable 
clues. Keys are required to unlock locations, 
and can be obtained at the locksmith's 
(naturally). 

Documentation is quite extensive. A 
manual contains full instruction on the oper- 
ation of the program, as well as playing tips 



and tables to decipher the codes. These 
keys are placed in the center of the book for 
easy copying. A separate casebook contains 
short scenarios setting up each of the 30 
cases, which must be read before attempt- 
ing to solve each crime. Fortunately, all the 
written materials are intelligently executed 
and engaging, and the manual and the 
separate machine specific reference card 
are spiced up with quotes from the works 
of Sherlock Holmes. A pad of worksheets, 
on which players may make notes on their 
journeys, is thoughtfully provided. 

The program itself is enjoyable to play, 
although it truly shines when played by more 
than one person. It most closely resembles, 
as one might guess, the board game Clue, 
except that the solution of these crimes re- 
quires a different style of deduction. 
However, for adults at least, the solutions 
should be no problem, as the clues leading 
you to the murderer, the motive and the 
weapon are quite simple. For example, the 
clue indicating that Lord Longsworth was the 
killer was the phrase ' 'the opposite of short. ' ' 
Still, the chase throughout the town is good 
fun, and some bit of strategy is required, to 
assure efficient use of moves. The 30 cases 
keep the game interesting for some time, 
although, as you might expect, the basic 
framework of each game is identical. For 
those that really love the game, additional 
data disks are promised. 

Overall, I found 221 B. Baker Street to be 
fun to play, but not very challenging. It is 
probably best suited for younger players, 
probably preteens, and is best played in a 
group setting rather than alone. Still, it should 
come as no mystery that budding armchair 
detectives will love it. 
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Shuffleboard 

by George Breen 

Shelbourne Software 

Systems, Inc. 

7221 Rising Sun Ave., Suite 191 

Philadelphia, PA 19111 

ST Disk $29 95 

Reviewed by Steve Panak 

The vast number of activities that program- 
mers attempt to force their computers to 
simulate sometimes amazes even me. We 
have war simulatlo-'s, sport simulations, flight 
and driving simulations. And usually, some- 
thing is lost in the translation. Especially as 
far as control of the game goes, these com- 
puters just can't cut it. For example, how do 
you simulate a golf swing? Most of the pro- 
grams currently available require you to tap 
a mouse button, or the space bar, to start 
your swing and again to end it. Using this 
adequate, although crude approximation, 
golf becomes a game of timing. But when 
they tried to simulate gymnastics— well, I 
wasn't impressed. 

Although ST Shuffleboard continues this 
trend, it stands apart from the other simula- 
tions due mainly to the manner in which you 
control the sliding of your weight. I should 
change that to the way you slide your weight. 
I say this because this program more close- 
ly simulates the original product than any 
game I've ever seen. It's unfortunate that 
shuffleboard is usually considered a boring 
game for the elderly. But this is not the ship- 
deck shuffleboard, in which you use a sticl< 
to propel your weights down the board, but 
the table variety, in which you slide your 



weights with your hands. This latter variation 
is often popular on college campuses. 

The screen display offers two simultane- 
ous points of view. The majority of the mon- 
itor screen is occupied by a three- 
dimensional representation of the table as it 
stretches out in front of you. Suspended 
above it are two scoring tallies and an indi- 
cator showing who is up. The right border 
of the screen holds an overhead view of the 
scoring portion of the playfield. Your weights 
move in both of these displays simultaneous- 
ly, appearing on the right display as your 
weight reaches the end of the board. And, 
lil<e its real-life counterpart, this game has a 
numoer of options and variations. 

You can choose to play on one of two ta- 
bles. The longboard contains three scoring 
areas at its far end, while the cushion board 
contains the familiar triangular scoring area 
and allows banking off the sides. The long- 
board supports three game variations, the 
cushion table two. Of the five games possi- 
ble, most will find one to suit his tastes, 
although I would have liked to have seen 
more control over variables, such as being 
allowed to create a longboard table with 
cushions. Such a design would allow the 
user much more flexibility. 

You can choose to play against a human 
or computer opponent. You may also allow 
the computer to play against itself. The hu- 
man player may customize the relationship 
between the speed of the mouse and the 
speed of the weight, as well as set the com- 
puter opponent's skill anywhere from moron 
to professional. Table options include the 
positioning of the foul line, the amount of 



cornstarch on the playfield (which deter- 
mines the friction, and hence the speed, of 
the weight), and the placement of the scor- 
ing areas on the longboard model. You can 
also choose to play to one of four possible 
winning scores, but, in another show of in- 
flexibility, you cannot choose your own tar- 
get score. 

When it comes time to slide the weight, the 
game truly shines. Holding down the left 
mouse button, using the mouse you move 
the weight around on the table — left, right, 
back and forth. Push the mouse forward and 
release the button to send the weight slid- 
ing down the table. The ALT key locks the 
horizontal motion of the weight, making aim- 
ing easier, while CONTROL and LEFT SHIFT 
put left and right spin on the weight. One 
note here is that due to the typical mouse 
placement— that is, to the right of the 
keyboard— lefties might have trouble play- 
ing this game. 

The manual is nearly unnecessary. Good 
program design allows the newcomer to 
quickly learn the game without any 
documentation. When you use it, you will find 
it simple to understand, with numerous 
screen-dump illustrations. In addition, there 
is a booklet (very dated, circa 1 950s) put out 
by the American Shuffleboard Company fully 
describing the variations and rules of shuffle- 
board along with a scoring sheet. Given all 
the considerations, the scales tip slightly in 
favor of this one. The price is reasonable, 
and the only real flaw Is the program's in- 
flexibility. Shuffle on down to your dealer and 
get ST Shuffleboard. You won't be 
disappointed. 
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Bridge 5.0 

by Arthur M. Walsh 

Artworx Software Company, inc. 

1844 Penfield Road 

Penfield, NY 14526 

Medium Resolution $29.95 

Reviewed by Steve Ponok 

Most of my favorite games are thinking 
games: Chess, Go and any of a score of 
others that require some thought and strate- 
gy to succeed. Don't get me wrong. I like the 
wrist-busters too. It's just that thinking games 
really fascinate me, probably due to the fact 
that they outperform pathetic humans at their 
own games. And while it may not be the 
greatest player in the world. Bridge 5.0 
proves to be more than a match for most of 
us. 

Artworx has completely refurbished their 
bridge simulation, supplying it in compiled 
BASIC to speed up the program execution, 
as well as incorporating numerous sugges- 
tions from bridge experts. The resultant 
game, while still possessing a few rough 
edges, offers newcomers and pros alike a 
challenging game. Play follows the normal 
pattern of bridge, allowing you to first bid, 
then play a given hand. Just as the 
documentation refers you to other works to 
learn the rules of this complex game, so will 
I refer you to others for instruction. Proba- 
bly the best book on the game is Goren's 
Bridge Complete. Another option might be 
Artworx's Compubridge tutorial, which al- 
lows interaction with a computer teacher. 
Either will get the novice started on the right 



track. 

Upon booting the program you are 
presented with a list of options. Click on 
"PLAY" to set up a randomly generated 
hand. Or you can choose to be dealt a hand 
with at least 1 3, 1 7 or 22 points. These would 
be considered to be stronger hands. More 
advanced players might choose to play a 
previously saved hand, or to set up the cards 
into four hands of their own design. This fi- 
nal option allows you to study the bridge 
problems which so often appear in major 
newspapers. 

Using the mouse, you first select your bid, 
then play your hand. Tossing in a card is as 
easy as clicking it on with the left button, 
while the right one brings up a mini menu 
with options terminating the hand. After each 
hand you can choose to display all the cards, 
and you may play the hand over if you so 
desire. The screen displays are just what you 
would expect from an ST in medium resolu- 
tion. The playing cards are easily discerni- 
ble, even when all 52 cover the screen. And 
the playing field is designed nicely, with the 
only distractions from the cards being unob- 
trusive selection grids. A status line at the top 
gives the current tricks awarded to each 
team, as well as the bid and the next hand 
to be played. Still, there were a couple of 
problems, mostly in program execution. 

When you set up a hand, the program 
wastes your time by making you click on 
each card to go into the final hand, rather 
than simply using these remaining 13 cards. 
When displaying the hands, the trump suit 



is not placed on the left, as is customary. 
Also annoying is a small "hot spot" on the 
cards which often forces you to click all 
about on a card in order to select it. Finally, 
a bug exists in the version I tested which 
caused the program to renege, playing 
trump improperly in certain instances. This 
latter flaw has since been corrected (in pro- 
gram files dated later than August '87), and 
updates are available from Artworx at no 
cost. 

As for how well the program plays the 
game, it can keep up with most of the popu- 
lation, although experts might find it a little 
lacking. Its algorithms underbid the hands, 
ensuring that the bid is usually made. It fol- 
lows the Standard American (nearly identi- 
cal to Goren) bidding system and, if it should 
mean anything to you, it follows the Black- 
wood and Stayman conventions. It plays its 
cards rapidly, and is very addictive, espe- 
cially if you enjoy the game. Documentation 
is slight: a single, folded sheet of thick paper 
holding the three pages of instructions, 
which are applicable to seven different 
machines. It takes careful reading to deter- 
mine just what has to be done to get the ST 
version to work. 

Overall, despite its rough edges, I must 
recommend Bridge 5.0 to anyone interest- 
ed in playing and studying this complex 
game. While it could have offered a little 
more in the way of options, and been a little 
more attentive to ease of use, its 
price/performance ratio still makes it a very 
good buy. 
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Attention 
Programmers! 



ANALOG Computing is interested in programs, articles, and software review sub- 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number 



Send your programs and articles to: 

ANALOG Computing 

P.O. Box 1413-M.O. 

Manchester, CT 06040-1413 









Vs been about a 
year since Atari 
last siiewed the elusive 
Atari PC Clone at the 
summer Consumer Elec- 
tronics Show in Chicago 
in June I98J. I have had 
some pretty strong opin- 
ions about that product 
since it first debuted 
and continue to feel 
strongly about it. 



The Atari PC was first shown at the 
January 1987 CES and billed as the first 
PC clone to have EGA (Enhanced Graph- 
ics Adapter — an IBM PC graphics stan- 
dard) built in. For $699, you would get 
a fast processor (faster than the standard 
IBM PC anyway), standard serial and 
parallel ports, monochrome screen and 
no slots. The specs were still the same in 
June but the delivery date was pushed 
back to the fall. 

I doubted at the time that the Atari PC 
would ever hit the streets. For one thing, 
the PC clone market has become a com- 
modity market where price is the most 
important aspect. For another thing, 
there are already several big players in- 
volved in the clone game such as Tandy, 



PC's Limited, Epson, Leading Edge and 
a host of others. In fact, even Hyundai, 
the Korean manufacturer of inexpensive 
cars, is selling PC clone computers in the 
United States under the name Blue Chip. 

You can go out today and buy the same 
box that Atari promised to sell in the fall 
of 1987 for about the same price or even 
less. The big difference, aside firom many 
of the other companies already having a 
corporate-familiar name, is that all of 
these machines have slots for adding ex- 
tra circuit boards, whereas the Atari PC 
does not. Extended memory, enhanced 
memory, hard-disk cards, more serial and 
parallel ports, clocks, etc., cannot be ad- 
ded to the Atari PC. 

In addition, Atari faces an uphill battle 
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It's been 30 years, give or 
take a few, since Mast saw a copy 
of this magazine, and I was 
surprised to read about articles 
and see projects that I could have 
sworn I read about as a youth. 




to get corporate purchasing agents or DP 
managers to buy a PC that has the Atari 
name on it. It seems unlikely that the cor- 
porate purchaser of computers is going 
to even consider a non- 
standard computer (or hundreds of com- 
puters) from a game company, let alone 
buying it from a toy store. Although the 
Atari PC was shown several times public- 
ly, it seems almost certain now that it is 
a doomed product. 

At the time, I asked Atari's new mar- 
keting wiz, Jerry Brown (no, not that Jer- 
ry Brown), about the lack of slots on the 
Atari PC. He emphasized that it was the 
only PC clone that had a built-in EGA, in 
addition to its CGA and monochrome 
graphics output. I noted that it would take 
another $300 to add a color monitor, 
bringing the price of a color Atari PC up 
to $1000, and suggested that, to the pur- 
chasers of low-end PC clones, slots may 
be more important than EGA. Mr. Brown 
responded with something like, "So they 
won't buy our macliine." 

Considering the facts, it looks like the 
Atari PC is a non-product and Atari's 
marketing attitude towards it and their 
potential buyers is a non-attitude as well. 
Atari's emphasis on their video-game 
products in the last six montlis fxu-ther 
dooms the Atari PC. I guess this is just 
one more episode in the never-ending sto- 
ry of future Atari products that never 
were. 



Not long ago I found myself sitting in 
a doctor's office waiting for my appomt- 
ment. As I waited for my turn in the over- 
booked queue, I began to get bored, so 
I looked around for something to read. 
I spyed a copy of HighMghts for Children 
and picked it up to look through it. It's 
been 30 years, give or a take a few, since 
I last saw a copy of this magazme and I 
was surprised to read about articles and 
see projects that I could have sworn I i-ead 
about as a youth. 

Then it da^Tied on me. Of course they 
were the same or similar projects. The 
kids i-eading the magazine today were ob- 
viously not around three decades ago and 
therefore to them, this stuff was new. The 
same is true for readers of ANALOG. 
Newcomers to computers as well as to the 
magazine are reading about the ST for 
the first time. Because of this, I'd like to 



mention a few things that would have 
helped me when I was a firsl^time ST user. 
If Heloise used an ST, this month's 
column would be called "ST Hints From 
Heloise." 

One of the first potentially confusing 
aspects of using the ST are the various 
program types available for the macliine. 
There are four types of programs on the 
ST and it is useful to have a brief under- 
standing of each. Each of the programs 
has a different name extension (a maxi- 
mum of three letters after the period in 
the program name). 

A GEM (Graphics Environment 
Manager) application program uses the 
GEM interface (windows, drop-down me- 
nus, dialog boxes, etc.) and both enters 
and exits from the GEM Desktop. It has 
a ".PRG" at the end of the program 
name. A non-GEM program is one that 
does not necessarily use the GEM inter- 
face or built-in GEM fimctions. They may 
use the GEM routines but always provide 
their own user interface. Tlieir extension 
is ".TOS" (The Operating System). 

A special type of "TOS" program re- 
quires one or several arguments or addi- 
tional pieces of information that are sup- 
plied when the program is run. Wlien 
these programs are run from the desk- 
top, a dialog box appears to let you enter 
the list of arguments. After the argu- 
ment(s) is entered, you press return and 
the program runs. There are several 
"command processors" available for the 
ST and these programs allow you to enter 
commands much like you do m MS-DOS 
or CP/M, that is directly from the key- 
board. If you were using a command 
processor, you would run tlus type of pro- 
gram by typing its name followed by the 
list of arguments. Programs that use a list 
of arguments have a ".TTP" name exten- 
sion which stands for TOS Takes 
Parameters. 

There is a final type of program that 
can be run on the ST which is sUghtly 
different then the ones mentioned above. 
This program type is called a "Desktop 
Accessory" because once run, it is always 
available to you much like a stapler, pen- 
cil holder or calculator is — to use the 
desktop metaphor. When a Desktop Ac- 
cessory is run it is loaded uito memory 
and takes up a portion of your ST's ran- 
dom access memory (RAM). The acces- 
sory, which is typically a small program. 



n 
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is available from any GEM application 
program from the "Desk" drop-down 
menu. This is one of the many built-in 
features of GEM. Desktop Accessory pro- 
grams have a ".ACC" name extension and 
have to be programmed to specifically be 
an accessory. Any other program will not 
function as an accessory, even if you were 
to change the extension to ".ACC." 

There are a number of ways for you to 
get the most out of using the GEM Desk- 
top. One of the simplest tricks is to re- 
name the disk icons (small pictures on the 
Desktop). For example, if you have two 
disk drives, stacked one above the other 
(on your desk), it may be easier for you 
to refer to these drives as the "top disk" 
and "bottom disk." To do this, click once 
on the drive icon and then choose "in- 
stall disk drive" from the "Option" menu. 
Type in the new name in the name field 
and click on "install." That's all there is 
to it and your new name will remain in 
effect until the computer is turned off. To 
save the name permanently, you will have 
to save the Desktop (see below). 

Another method you can use to get the 
most out of using the Desktop is to first 
organize it the way you want, and then 
save the Desktop so that each and every 
time you use your ST, the Desktop will 
look just as you left it. What will be saved 
with the Desktop? Icon names and posi- 
tions, screen resolution, number of dis- 
played windows, their size and position. 
From the "Option" menu there is a 
choice labeled "Save Desktop." CUcking 
on this option creates (or overwrites a 
previous) a file caUed DESKTOP.INR 
Whenever the ST is first turned on, it 
checks to see if this file is present and if 
it is, loads the Desktop exactly as you had 
saved it. 

If for some reason your mouse is in- 
capacitated, missing, on strike or other- 
wise imavailable, you can still maneuver 
around the desktop via the ST keyboard. 
This information is buried in the ST user 
manual but it is really quite straightfor- 
ward. To move the screen cursor around 
you hold down the Alternate key and 
press any of the four arrow keys for direc- 
tion. If you want a finer movement of the 
cursor, hold down both the Alternate and 
Shift keys and press any of the foiu- ar- 
row keys. To give a left mouse button 
click, press the Alternate and Insert keys. 
Tlie Alternate and Clr/Home keys pressed 



together act like a right button click. Af- 
ter a little practice it begins to feel natur- 
al although not as much fim as driving the 
little furry guy around your desk. 

Unlike some computers such as the 
Macintosh which not only keep track of 
what disks are in the drives but also con- 
trol when they can be removed, the ST 
allows you to insert and remove a disk at 
any time. However, if you have an open 
window on a particular disk drive, and 
then replace the original disk with 
another, the screen still displays the con- 
tents of the original disk. One way of up- 
dating the displayed directory is to close 
the window and then open it again. That's 
cumbersome, time consuming and no 
fun. A better way is to simply use the Es- 
cape (Esc) key on the keyboard. Pressing 
Escape causes the ST to update the con- 
tents of the currently open window. By the 
way, the escape key can also be used to 
erase text fields in GEM dialog boxes. For 
example, to enter a new time in the con- 
trol panel, press Escape to wipe out the 
field and move the cursor to the begin- 
ning and then type the new time. 

When I first started using Unix many 
years ago, there was one concept that I 
didn't fully understand or appreciate. It 
wasn't until I started using the system on 
a regular basis that I began to realize the 
importance of folders (called directories 
in the MS-DOS and Unix world). The best 
way I can now explam their use is to ask 
you to imagine many files of different 
types. For example, some files are text 
files used with your word processor, other 
files are used with a spreadsheet, other 
files are DEGAS graphic files, and on and 
on. It doesn't take more than a screenful 
or two of files to make the task of finding 
any one specific file difficult. Here is 
where folders become important. 

Instead of having to look high and low 
for a particular file in one directory list- 
ing or window, folders let you categorize 
your files for easier access as well as 
potentially faster operation. To create a 
new folder, select the File Menu on the 
desktop and provide a name when the di- 
alog box appears. Remember that you 
cannot rename the folder later on so 
choose names that describe its intended 
purpose. For example, I have such folders 
as "words," "graphics" and "games." You 
can even have folders inside of folders. 
Within "words," I have a folder called 



"lst_Word," "ST_Writer" and "Re- 
gent" to hold the programs and files of 
three different word processors. Note that 
there can be no blank spaces in a folder 
name so you need to use an underscore 
character. 

If you want to see the contents of a 
folder just click twice on the folder name 
or icon. Files can be copied to a folder 
name or icon from another window so 
there is no need to open the folder first. 
Finally, when a window is open showing 
the contents of a specific folder, the PATH 
or folder order is displayed at the top of 
the window and the number of bytes for 
that folder only is also displayed. 

The last tip allows you to run your ap- 
plication programs a little faster. If you 
wanted to use your word processor, you 
would double click on the program and 
then from within the program select an 
existing text file to work on. By installing 
an application with its document type you 
can simply double click on the file you 
want to use and the program associated 
with it will automatically run. Here's how 
to do it: 

First of all, you need to be consistent 
with the name extension of your similar 
files. In this example I am using 1st Word 
so my name extensions are ".DOC." From 
the Desktop, click once on the applica- 
tion name, 1st Word. Then go to the Op- 
tion Menu and select "Install Applica- 
tion." When the dialog box appears, type 
the three letters associated with the 
application — "DOC" in this case. Then 
click on "OK" and save the Desktop to 
make your selections permanent. From 
now on, all you need to do is double click 
on any file with a ".DOC" extension name 
and 1st Word will automatically run and 
load the document file you selected. Be 
sure that the application program and its 
associated files all reside on the same disk 
for this technique to work. 

Knowing how to use your ST computer 
more effectively means that you will get 
the most out of computing. And getting 
the most out of computing is something 
we are all interested in. 

Leyenberger is a human factors psycholo- 
gist and freelance writer living in New Jer- 
sey. He has written over 100 articles about 
computers in the last four years and con- 
tinues to be an Atari enthusiast. When not 
computing he enjoys playing with robotic 
toys. 
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BOOT UP 
TO BIG SAVINGS! 











1 YEAR FOR ONLY $28 

SAVE $14 OFF THE COVER PRICE 



1 YEAR mm DISK ONLY $ 1 05 













SAVE TIME AND MONEY 
SUBSCRIBE TO ANALOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ANALOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS. 
GET THE MOST OUT 
OF YOUR COMPUTER. 
SUBSCRIBE TO 
ANALOG 
TODAY 



D 1 YEAR @ $28 — SAVE $14! 

FOREIGN - ADD $7 PER YEAR 
n 1 YEAR WITH DISK @ $105 

FOREIGN - ADD $15 PER YEAR 



MCGYY 



DCGYY 



D PAYMENT ENCLOSED 
CHARGE MY: D VISA 



D BILL ME 
n MC# 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED. 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



MAKE CHECK PAYABLE TO L.F.P., INC., P.O. Box 16927, N. Hollywood, CA 91615. Offer expires August 
31, 1988. Your first issue will arrive in 6 TO 8 weeks. 



WATCH FOR IT! 



BOOT UP 
TO BIG SAYINGS! 




1 YEAR FOR ONLY $28 

SAVE $14 OFF THE COVER PRICE 

1 YEAR WITH DISK OHli $105 



f. 1 

SAVE TIME AND MONEY 
SUBSCRIBE TO ST-LOG 

SAVE $14 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ST-LOG 
DELIVERED DIRECT- 
LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS! 
GET THE MOST OUT 
OF YOUR COMPUTER 
SUBSCRIBE TO 
ST-LOG 
TODAY! 



D 1 YEAR @ $28 - SAVE $14! 

FOREIGN - ADD $7 PER YEAR 
D 1 YEAR WITH DISK @ $105 

FOREIGN - ADD $15 PER YEAR 

n PAYMENT ENCLOSED D BILL ME 
CHARGE MY; D VISA D MC # 



MCGYW 



DCGYW 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED. 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



MAKE CHECK PAYABLE TO L.F.P., INC., P.O. Box 16928, N. Hollywood, CA 91615. Offer expires August 
31 1988. Your first issue will arrive in 6 to 8 weeks. 



WATCH fOR IT! 
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